root2paw/src/retrklev2.for

C------------------------------------------------
      FUNCTION RETRKLEV2(evno)
C------------------------------------------------
C     Written by Emiliano Mocchiutti
C     v. 0.2
C
      INCLUDE 'COMMON2.TXT'
      integer retrklev2, evno, ierr
      REAL hmemor(9000000)
      integer Iquest(100)    
      COMMON /pawc/hmemor
      save /pawc/
      Common /QUEST/ Iquest
      save /quest/

C         
C     change here if you changed the ntuple id number
C
      retrklev2 = 0
      call HCDIR('//LEVEL2',' ')
      call HGNT(42,evno,ierr)
      if (ierr.ne.0) print *,'Error reading tracker ntuple'
c      if (ntrk.eq.1) print *,' RIG = ',1./al(5,1)
c      print *,' OBT = ',obt
C
      RETURN
      END


1	mocchiut	1.1	C------------------------------------------------
2			FUNCTION RETRKLEV2(evno)
3			C------------------------------------------------
4			C Written by Emiliano Mocchiutti
5			C v. 0.2
6			C
7			INCLUDE 'COMMON2.TXT'
8			integer retrklev2, evno, ierr
9			REAL hmemor(9000000)
10			integer Iquest(100)
11			COMMON /pawc/hmemor
12			save /pawc/
13			Common /QUEST/ Iquest
14			save /quest/
15
16			C
17			C change here if you changed the ntuple id number
18			C
19			retrklev2 = 0
20			call HCDIR('//LEVEL2',' ')
21			call HGNT(42,evno,ierr)
22			if (ierr.ne.0) print *,'Error reading tracker ntuple'
23			c if (ntrk.eq.1) print *,' RIG = ',1./al(5,1)
24	mocchiut	1.2	c print *,' OBT = ',obt
25	mocchiut	1.1	C
26			RETURN
27			END
28
29