trunk/dyn3d/minmax.f

SUBROUTINE minmax(imax, xi, zmin, zmax)

  ! From dyn3d/minmax.F, version 1.1.1.1 2004/05/19 12:53:07
  ! P. Le Van

  INTEGER, intent(in):: imax
  REAL, intent(in):: xi(imax)
  REAL, intent(out):: zmin, zmax

  !------------------------------

  zmin = minval(xi)
  zmax = maxval(xi)

END SUBROUTINE minmax
1	guez	3	SUBROUTINE minmax(imax, xi, zmin, zmax)
2
3			! From dyn3d/minmax.F, version 1.1.1.1 2004/05/19 12:53:07
4			! P. Le Van
5
6			INTEGER, intent(in):: imax
7			REAL, intent(in):: xi(imax)
8			REAL, intent(out):: zmin, zmax
9
10			!------------------------------
11
12			zmin = minval(xi)
13			zmax = maxval(xi)
14
15			END SUBROUTINE minmax