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	mocchiut	1.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