source: LMDZ.3.3/branches/rel-1-0-patch/libf/dyn3d/minmax2.F @ 1179

Last change on this file since 1179 was 253, checked in by (none), 23 years ago

This commit was manufactured by cvs2svn to create branch
'rel-1-0-patch'.

  • 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
Line 
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.