get_last_tgt Interface

public interface get_last_tgt

Get the last target of a non trivial excitation.


Contents


Module Procedures

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

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

private pure function get_last_tgt_Excite_3_t(exc) result(res)

Arguments

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

Return Value integer