source: LMDZ5/trunk/tools/Max_diff_nc_with_lib/NR_util/iminloc.f90 @ 1874

module iminloc_m

  ! Useless in Fortran 95.

  implicit none

  interface iminloc
     module procedure iminloc_r, iminloc_d
  end interface

  private iminloc_r, iminloc_d

contains

  pure INTEGER FUNCTION iminloc_r(arr)
    REAL, INTENT(IN) :: arr(:)
    iminloc_r=minloc(arr, dim=1)
  END FUNCTION iminloc_r

  !******************************************************

  pure INTEGER FUNCTION iminloc_d(arr)
    DOUBLE PRECISION, INTENT(IN) :: arr(:)
    iminloc_d=minloc(arr, dim=1)
  END FUNCTION iminloc_d

end module iminloc_m