source: LMDZ6/trunk/libf/misc/minmax.f90 @ 5418

Last change on this file since 5418 was 5246, checked in by abarral, 2 months ago

Convert fixed-form to free-form sources .F -> .{f,F}90
(WIP: some .F remain, will be handled in subsequent commits)
  • 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
  • Property svn:eol-style set to native
  • Property svn:keywords set to Author Date Id Revision
File size: 308 bytes
RevLine 
[524]1!
2! $Header$
3!
[5246]4 SUBROUTINE minmax(imax, xi, zmin, zmax )
5  !
6  !  P. Le Van
[524]7
[5246]8   INTEGER :: imax
9   REAL :: xi(imax)
10   REAL :: zmin,zmax
11   INTEGER :: i
[524]12
[5246]13   zmin = xi(1)
14   zmax = xi(1)
[524]15
[5246]16   DO i = 2, imax
17     zmin = MIN( zmin,xi(i) )
18     zmax = MAX( zmax,xi(i) )
19   ENDDO
[524]20
[5246]21   RETURN
22END SUBROUTINE minmax
[524]23
Note: See TracBrowser for help on using the repository browser.