get_last_tgt_Excite_1_t Function

private pure function get_last_tgt_Excite_1_t(exc) result(res)

Arguments

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

Return Value integer


Contents

Source Code

get_last_tgt_Excite_1_t

Source Code

    pure function get_last_tgt_Excite_1_t (exc) result(res)
        type(Excite_1_t), intent(in) :: exc
        integer :: res

        res = exc%val(2, size(exc%val, 2))
    end function get_last_tgt_Excite_1_t