imaxloc_i Function

  1. special_fun_modules.f90
  2. nrutil
  3. imaxloc_i

public function imaxloc_i(iarr)

Arguments

Type IntentOptional AttributesName
integer(kind=I4B), intent(in), DIMENSION(:):: iarr

Return Value integer(kind=I4B)


Called by

proc~~imaxloc_i~~CalledByGraph proc~imaxloc_i imaxloc_i interface~imaxloc imaxloc interface~imaxloc->proc~imaxloc_i

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