source: LMDZ.3.3/trunk/libf/dyn3d/minmax.F @ 5306

Last change on this file since 5306 was 2, checked in by lmdz, 25 years ago

Initial revision

  • Property svn:eol-style set to native
  • Property svn:executable set to *
  • Property svn:keywords set to Author Date Id Revision
File size: 326 bytes
RevLine 
[2]1       SUBROUTINE minmax(imax, xi, zmin, zmax )
2c
3c      P. Le Van
4
5       INTEGER imax
6       REAL    xi(imax)
7       REAL    zmin,zmax
8       INTEGER i
9
10       zmin = xi(1)
11       zmax = xi(1)
12
13       DO i = 2, imax
14         zmin = MIN( zmin,xi(i) )
15         zmax = MAX( zmax,xi(i) )
16       ENDDO
17
18       RETURN
19       END
20
Note: See TracBrowser for help on using the repository browser.