root2paw/src/optoflev1.for

C------------------------------------------------
      FUNCTION OPTOFLEV1(name,trnev)
C------------------------------------------------
C     Written by Emiliano Mocchiutti
C     v. 0.2
C         
      INCLUDE 'COMMONTOF.TXT'
C
      CHARACTER*100 name
C
      INTEGER lrec, optoflev1,trnev
      INTEGER istat
      PARAMETER (lrec=8190)
      REAL hmemor(9000000)
      integer Iquest(100)    
      COMMON /pawc/hmemor
      save /pawc/
      Common /QUEST/ Iquest
      save /quest/
      CALL HLIMIT(9000000)
      Iquest(10) = 256000
C
      optoflev1 = 0
      trnev = 0
C 
C     CHANGE here (hbname and hbnt if you want another ntuple id number
C
      call HROPEN(89,'TOF',name,'QP',4096,istat)
      if(istat.ne.0) goto 19      
      call HRIN(2,9999,0)       
      call access_tof
      call HNOENT(2,trnev)

 19   continue

C
c
      RETURN
      END


      SUBROUTINE access_tof
*
      include 'COMMONTOF.TXT'

      CALL HBNAME(2,' ',0,'$CLEAR')
*
      CALL HBNAME(2,'EVENT',GOOD2,'$SET')
*
      CALL HBNAME(2,'CPU',PKT_TYPE,'$SET')
*
      CALL HBNAME(2,'TOF',TDCID,'$SET')
*
      CALL HBNAME(2,'TRIGGER',TRIG_EVCOUNT,'$SET')
*
      CALL HBNAME(2,'TRACKS',NTRK,'$SET')
*
      CALL HBNAME(2,'SINGLETS',NCLSX,'$SET')
*

*
      return
      END
1	C------------------------------------------------
2	FUNCTION OPTOFLEV1(name,trnev)
3	C------------------------------------------------
4	C Written by Emiliano Mocchiutti
5	C v. 0.2
6	C
7	INCLUDE 'COMMONTOF.TXT'
8	C
9	CHARACTER*100 name
10	C
11	INTEGER lrec, optoflev1,trnev
12	INTEGER istat
13	PARAMETER (lrec=8190)
14	REAL hmemor(9000000)
15	integer Iquest(100)
16	COMMON /pawc/hmemor
17	save /pawc/
18	Common /QUEST/ Iquest
19	save /quest/
20	CALL HLIMIT(9000000)
21	Iquest(10) = 256000
22	C
23	optoflev1 = 0
24	trnev = 0
25	C
26	C CHANGE here (hbname and hbnt if you want another ntuple id number
27	C
28	call HROPEN(89,'TOF',name,'QP',4096,istat)
29	if(istat.ne.0) goto 19
30	call HRIN(2,9999,0)
31	call access_tof
32	call HNOENT(2,trnev)
33
34	19 continue
35
36	C
37	c
38	RETURN
39	END
40
41
42	SUBROUTINE access_tof
43	*
44	include 'COMMONTOF.TXT'
45
46	CALL HBNAME(2,' ',0,'$CLEAR')
47	*
48	CALL HBNAME(2,'EVENT',GOOD2,'$SET')
49	*
50	CALL HBNAME(2,'CPU',PKT_TYPE,'$SET')
51	*
52	CALL HBNAME(2,'TOF',TDCID,'$SET')
53	*
54	CALL HBNAME(2,'TRIGGER',TRIG_EVCOUNT,'$SET')
55	*
56	CALL HBNAME(2,'TRACKS',NTRK,'$SET')
57	*
58	CALL HBNAME(2,'SINGLETS',NCLSX,'$SET')
59	*
60
61	*
62	return
63	END