find_state_number Interface

public interface find_state_number

Module Procedures

private pure subroutine find_state_number_nohfs(state, states, i)

Check if the state "state" is in the array of states "states"

Arguments

Type IntentOptional Attributes Name
type(asymtop_state_nohfs), intent(in) :: state
type(asymtop_state_nohfs), intent(in), allocatable :: states(:)
integer, intent(out) :: i

private pure subroutine find_state_number_hfs(state, states, i)

Check if the state "state" is in the array of states "states"

Arguments

Type IntentOptional Attributes Name
type(asymtop_state_hfs), intent(in) :: state
type(asymtop_state_hfs), intent(in), allocatable :: states(:)
integer, intent(out) :: i