C------------------------------------------------
      FUNCTION OPENLEV2()
C------------------------------------------------

C	  
      INCLUDE './common/common_c2f.f'
      INCLUDE './common/common_level2.f'
C
      parameter (lun=1)
      parameter (mem=4096)
      integer istat
C
      runntp  = 1
      trkntp  = 2
      tofntp  = 3
      calontp = 4
      trigntp = 5
      acntp   = 6
      s4ntp   = 7
      ndntp   = 8
      orbntp  = 9
C
      CALL HLIMIT(10000000)
      Iquest(10) = 512000
C
      call HROPEN(lun,'LEVEL2',path,'NPQ',mem,istat)
      if(istat.ne.0) print*,' ERROR file: ',path,
     &     '   not open' 

      RETURN
      END
C------------------------------------------------

C------------------------------------------------
      FUNCTION CLOSELEV2()
C------------------------------------------------

      INCLUDE './common/common_c2f.f'

      call HCDIR('//LEVEL2',' ')
      call HREND('LEVEL2')
      CLOSE (lun)

      RETURN
      END
C------------------------------------------------