imaxloc_i Function

public function imaxloc_i(iarr)

Arguments

Type	Intent	Optional	Attributes		Name
integer(kind=I4B),	intent(in),		DIMENSION(:)	::	iarr

Return Value integer(kind=I4B)

Contents

Source Code

imaxloc_i

Source Code

	FUNCTION imaxloc_i(iarr)
	INTEGER(I4B), DIMENSION(:), INTENT(IN) :: iarr
	INTEGER(I4B), DIMENSION(1) :: imax
	INTEGER(I4B) :: imaxloc_i
	imax=maxloc(iarr(:))
	imaxloc_i=imax(1)
	END FUNCTION imaxloc_i