My Project
 All Classes Files Functions Variables Macros
minmax.F
Go to the documentation of this file.
1 !
2 ! $Header$
3 !
4  SUBROUTINE minmax(imax, xi, zmin, zmax )
5 c
6 c p. le van
7 
8  INTEGER imax
9  REAL xi(imax)
10  REAL zmin,zmax
11  INTEGER i
12 
13  zmin = xi(1)
14  zmax = xi(1)
15 
16  DO i = 2, imax
17  zmin = min( zmin,xi(i) )
18  zmax = max( zmax,xi(i) )
19  ENDDO
20 
21  RETURN
22  END
23