source: LMDZ5/branches/IPSLCM6.0.10/tools/Max_diff_nc_with_lib/NR_util/iminloc.f90

Last change on this file was 1910, checked in by Laurent Fairhead, 11 years ago

Merged trunk changes r1860:1909 into testing branch

  • Property copyright set to
    Name of program: LMDZ
    Creation date: 1984
    Version: LMDZ5
    License: CeCILL version 2
    Holder: Laboratoire de m\'et\'eorologie dynamique, CNRS, UMR 8539
    See the license file in the root directory
File size: 535 bytes
Line 
1module iminloc_m
2
3  ! Useless in Fortran 95.
4
5  implicit none
6
7  interface iminloc
8     module procedure iminloc_r, iminloc_d
9  end interface
10
11  private iminloc_r, iminloc_d
12
13contains
14
15  pure INTEGER FUNCTION iminloc_r(arr)
16    REAL, INTENT(IN) :: arr(:)
17    iminloc_r=minloc(arr, dim=1)
18  END FUNCTION iminloc_r
19
20  !******************************************************
21
22  pure INTEGER FUNCTION iminloc_d(arr)
23    DOUBLE PRECISION, INTENT(IN) :: arr(:)
24    iminloc_d=minloc(arr, dim=1)
25  END FUNCTION iminloc_d
26
27end module iminloc_m
Note: See TracBrowser for help on using the repository browser.