! $Header$

 SUBROUTINE minmax2(imax, jmax, lmax, xi, zmin, zmax )
  !
   INTEGER :: lmax,jmax,imax
   REAL :: xi(imax*jmax*lmax)
   REAL :: zmin,zmax
   INTEGER :: i

   zmin = xi(1)
   zmax = xi(1)

   DO i = 2, imax*jmax*lmax
     zmin = MIN( zmin,xi(i) )
     zmax = MAX( zmax,xi(i) )
   ENDDO


END SUBROUTINE minmax2