imaxloc_r Function

  1. special_fun_modules.f90
  2. nrutil
  3. imaxloc_r

public function imaxloc_r(arr)

Arguments

Type IntentOptional AttributesName
real(kind=SP), intent(in), DIMENSION(:):: arr

Return Value integer(kind=I4B)


Called by

proc~~imaxloc_r~~CalledByGraph proc~imaxloc_r imaxloc_r interface~imaxloc imaxloc interface~imaxloc->proc~imaxloc_r

Contents

Source Code

imaxloc_r

Source Code

	FUNCTION imaxloc_r(arr)
	REAL(SP), DIMENSION(:), INTENT(IN) :: arr
	INTEGER(I4B) :: imaxloc_r
	INTEGER(I4B), DIMENSION(1) :: imax
	imax=maxloc(arr(:))
	imaxloc_r=imax(1)
	END FUNCTION imaxloc_r