get_channel_index Module Function

public pure module function get_channel_index(channels, channel, reverse) result(i)

Return the first index i where channel .eq. channels(i) is .true., or the last index is reverse is .true.

Arguments

Type IntentOptional Attributes Name
class(channel_type), intent(in) :: channels(:)
class(channel_type), intent(in) :: channel
logical, intent(in), optional :: reverse

Return Value integer