findloc_i Function

public function findloc_i(arr, val)

Finds first index i where arr(i) = val. Returns 0 if val not found or size of array is 0

Based on Fortran intrinsic findloc implementation

Arguments

Type	Intent	Optional	Attributes		Name
integer,	intent(in),		dimension(:)	::	arr	Array
integer,	intent(in)			::	val	Value to be searched for

Return Value integer