root2paw/src/retrklev1.for

C------------------------------------------------
      FUNCTION RETRKLEV1(evno)
C------------------------------------------------
C     Written by Emiliano Mocchiutti
C     v. 0.2
C
      INCLUDE 'COMMON.TXT'
      integer retrklev1, evno, ierr
C         
C     change here if you changed the ntuple id number
C
      retrklev1 = 0
      call HCDIR('//LEVEL1',' ')
      call HGNT(41,evno,ierr)
      if (ierr.ne.0) print *,'Error reading tracker ntuple'
C
      RETURN
      END


1	mocchiut	1.1	C------------------------------------------------
2			FUNCTION RETRKLEV1(evno)
3			C------------------------------------------------
4			C Written by Emiliano Mocchiutti
5			C v. 0.2
6			C
7			INCLUDE 'COMMON.TXT'
8			integer retrklev1, evno, ierr
9			C
10			C change here if you changed the ntuple id number
11			C
12			retrklev1 = 0
13			call HCDIR('//LEVEL1',' ')
14			call HGNT(41,evno,ierr)
15			if (ierr.ne.0) print *,'Error reading tracker ntuple'
16			C
17			RETURN
18			END
19
20