root2paw/src/opaclev1.for

C------------------------------------------------
      INTEGER FUNCTION OPACLEV1(name)
C------------------------------------------------
c
      INCLUDE 'ACINT.TXT'
C
      CHARACTER*200 name
C
      INTEGER lrec
      INTEGER istat, ierr
      integer Iquest(100)    
      PARAMETER (lrec=8190)
C
      REAL hmemor(9000000)
C
      COMMON /pawc/hmemor
C
      Common /QUEST/ Iquest
C
      CALL HLIMIT(9000000)
      Iquest(10) = 256000
C     
      print *,'Open file...'
C
      CALL HROPEN(59,'Event',name,'npqe',lrec,istat)
      CALL HBNT(77,'Pamela AC',' ')
      CALL HBSET('BSIZE',lrec,ierr)
      CALL HBNAME(77,'ac',OBT,'OBT:R,EVFILE:R,HEADC:R,'//
     &     'STATUS(2):I,HITMAP(2):I,HITSTATUS(2):I,'//
     &     'TRIGGER(2):I')
C
      OPACLEV1 = 0

      RETURN 
      END

1	C------------------------------------------------
2	INTEGER FUNCTION OPACLEV1(name)
3	C------------------------------------------------
4	c
5	INCLUDE 'ACINT.TXT'
6	C
7	CHARACTER*200 name
8	C
9	INTEGER lrec
10	INTEGER istat, ierr
11	integer Iquest(100)
12	PARAMETER (lrec=8190)
13	C
14	REAL hmemor(9000000)
15	C
16	COMMON /pawc/hmemor
17	C
18	Common /QUEST/ Iquest
19	C
20	CALL HLIMIT(9000000)
21	Iquest(10) = 256000
22	C
23	print *,'Open file...'
24	C
25	CALL HROPEN(59,'Event',name,'npqe',lrec,istat)
26	CALL HBNT(77,'Pamela AC',' ')
27	CALL HBSET('BSIZE',lrec,ierr)
28	CALL HBNAME(77,'ac',OBT,'OBT:R,EVFILE:R,HEADC:R,'//
29	& 'STATUS(2):I,HITMAP(2):I,HITSTATUS(2):I,'//
30	& 'TRIGGER(2):I')
31	C
32	OPACLEV1 = 0
33
34	RETURN
35	END
36