operator(.eq.) Interface

public interface operator(.eq.)

Module Procedures

private pure elemental module function channel_iseq(channel1, channel2) result(res)

Test for channel equality on the basis of their quantum numbers only

Arguments

Type IntentOptional Attributes Name
class(channel_type), intent(in) :: channel1
class(channel_type), intent(in) :: channel2

Return Value logical

private pure elemental module function transition_iseq(transition1, transition2) result(res)

Test if two transitions are equal

Arguments

Type IntentOptional Attributes Name
type(asymtop_rot_transition_type), intent(in) :: transition1
type(asymtop_rot_transition_type), intent(in) :: transition2

Return Value logical