find_name Function

private pure function find_name(names, name) result(name_index)

Arguments

Type	Intent	Optional	Attributes		Name
character(len=*),	intent(in)			::	names(:)
character(len=*),	intent(in)			::	name

Return Value integer