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	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