source: LMDZ.3.3/trunk/libf/dyn3d/minmax2.F @ 507

Last change on this file since 507 was 61, checked in by lmdz, 25 years ago

Changement de nom. O. Boucher
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
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.