set_last_tgt_Excite_1_t Subroutine

private pure subroutine set_last_tgt_Excite_1_t(exc, tgt)

Arguments

Type IntentOptional Attributes Name
type(Excite_1_t), intent(inout) :: exc
integer, intent(in) :: tgt

Contents

Source Code

set_last_tgt_Excite_1_t

Source Code

    pure subroutine set_last_tgt_Excite_1_t (exc, tgt)
        type(Excite_1_t), intent(inout) :: exc
        integer, intent(in) :: tgt
        exc%val(2, size(exc%val, 2)) = tgt
    end subroutine set_last_tgt_Excite_1_t