c3po/F77/rzfile.f

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


1	C------------------------------------------------
2	FUNCTION OPENLEV2()
3	C------------------------------------------------
4
5	C
6	INCLUDE './common/common_c2f.f'
7	INCLUDE './common/common_level2.f'
8	C
9	parameter (lun=1)
10	parameter (mem=4096)
11	integer istat
12	C
13	runntp = 1
14	trkntp = 2
15	tofntp = 3
16	calontp = 4
17	trigntp = 5
18	acntp = 6
19	s4ntp = 7
20	ndntp = 8
21	orbntp = 9
22	C
23	CALL HLIMIT(10000000)
24	Iquest(10) = 512000
25	C
26	call HROPEN(lun,'LEVEL2',path,'NPQ',mem,istat)
27	if(istat.ne.0) print*,' ERROR file: ',path,
28	& ' not open'
29
30	RETURN
31	END
32	C------------------------------------------------
33
34	C------------------------------------------------
35	FUNCTION CLOSELEV2()
36	C------------------------------------------------
37
38	INCLUDE './common/common_c2f.f'
39
40	call HCDIR('//LEVEL2',' ')
41	call HREND('LEVEL2')
42	CLOSE (lun)
43
44	RETURN
45	END
46	C------------------------------------------------
47
48