get_last_tgt_Excite_2_t Function

private pure function get_last_tgt_Excite_2_t(exc) result(res)

Arguments

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

Return Value integer


Contents

Source Code

get_last_tgt_Excite_2_t

Source Code

    pure function get_last_tgt_Excite_2_t (exc) result(res)
        type(Excite_2_t), intent(in) :: exc
        integer :: res

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