source: LMDZ.3.3/branches/rel-LF/libf/dyn3d/minmax2.F @ 266

Last change on this file since 266 was 232, checked in by lmdzadmin, 23 years ago

Merge par rapport a la branche principale
LF

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