root2paw/src/retoflev1.for

C------------------------------------------------
      FUNCTION RETOFLEV1(evno)
C------------------------------------------------
C     Written by Emiliano Mocchiutti
C     v. 0.2
C
      INCLUDE 'COMMONTOF.TXT'
      integer retoflev1, 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
      retoflev1 = 0
      call HCDIR('//TOF',' ')
      call HGNT(2,evno,ierr)
      if (ierr.ne.0) print *,'Error reading tracker ntuple'
c      if (ntrk.eq.1) print *,' RIG = ',1./al(5,1)
C
      RETURN
      END


1	C------------------------------------------------
2	FUNCTION RETOFLEV1(evno)
3	C------------------------------------------------
4	C Written by Emiliano Mocchiutti
5	C v. 0.2
6	C
7	INCLUDE 'COMMONTOF.TXT'
8	integer retoflev1, 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	retoflev1 = 0
20	call HCDIR('//TOF',' ')
21	call HGNT(2,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	C
25	RETURN
26	END
27
28