find_state_number Subroutine

public subroutine find_state_number(state, states, i)

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

Arguments

Type	Intent	Optional	Attributes		Name
class(asymtop_state),	intent(in)			::	state
class(asymtop_state),	intent(in),		allocatable	::	states(:)
integer,	intent(out)			::	i