set_n_imps Subroutine

private subroutine set_n_imps(this, n_imps)

Type Bound

aim

Arguments

Type IntentOptional Attributes Name
class(aim) :: this
integer, intent(in) :: n_imps

Contents

Source Code

set_n_imps

Source Code

    subroutine set_n_imps(this, n_imps)
        class(aim) :: this
        integer, intent(in) :: n_imps
        character(*), parameter :: this_routine = "set_n_imps"

        ASSERT(n_imps > 0)

        this%n_imps = n_imps

    end subroutine set_n_imps