root2paw/src/optrklev2.for

C------------------------------------------------
      FUNCTION OPTRKLEV2(name,trnev)
C------------------------------------------------
C     Written by Emiliano Mocchiutti
C     v. 0.2
C         
      INCLUDE 'COMMON2.TXT'
C
      CHARACTER*100 name
C
      INTEGER lrec, optrklev2,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
      optrklev2 = 0
      trnev = 0
C 
C     CHANGE here (hbname and hbnt if you want another ntuple id number
C
      call HROPEN(81,'LEVEL2',name,'QP',4096,istat)
      if(istat.ne.0) goto 19      
      call HRIN(22,9999,20)       
      call access_level2
      call HNOENT(42,trnev)

 19   continue

C
c
      RETURN
      END


      SUBROUTINE access_level2
*
      include 'COMMON2.TXT'

      CALL HBNAME(42,' ',0,'$CLEAR')
*
      CALL HBNAME(42,'EVENT',GOOD2,'$SET')
*
      CALL HBNAME(42,'CPU',PKT_TYPE,'$SET')
*
      CALL HBNAME(42,'TRACKS',NTRK,'$SET')
*
      CALL HBNAME(42,'SINGLETS',NCLSX,'$SET')
*

*
      return
      END
1	mocchiut	1.1	C------------------------------------------------
2			FUNCTION OPTRKLEV2(name,trnev)
3			C------------------------------------------------
4			C Written by Emiliano Mocchiutti
5			C v. 0.2
6			C
7			INCLUDE 'COMMON2.TXT'
8			C
9			CHARACTER*100 name
10			C
11			INTEGER lrec, optrklev2,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			optrklev2 = 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(81,'LEVEL2',name,'QP',4096,istat)
29			if(istat.ne.0) goto 19
30			call HRIN(22,9999,20)
31			call access_level2
32			call HNOENT(42,trnev)
33
34			19 continue
35
36			C
37			c
38			RETURN
39			END
40
41
42			SUBROUTINE access_level2
43			*
44			include 'COMMON2.TXT'
45
46			CALL HBNAME(42,' ',0,'$CLEAR')
47			*
48			CALL HBNAME(42,'EVENT',GOOD2,'$SET')
49			*
50			CALL HBNAME(42,'CPU',PKT_TYPE,'$SET')
51			*
52			CALL HBNAME(42,'TRACKS',NTRK,'$SET')
53			*
54			CALL HBNAME(42,'SINGLETS',NCLSX,'$SET')
55			*
56
57			*
58			return
59			END