c=======================================================================

      subroutine levrng(nzz,lz,n,lbot,ltop) 3
c
c     purpose: used specify a computational level range on the 
c              the flag array lz
c     
      dimension lz(*)

      lbot=0
      ltop=0
      if(n.gt.nzz) return
      if(lz(n).le.0) return

      lbot=lz(n)
      ltop=lbot
      if(n.ne.nzz.and.lz(n+1).lt.0) ltop=-lz(n+1)

      return
      end