/[PAMELA software]/root2paw/src/retrklev2.for
ViewVC logotype

Diff of /root2paw/src/retrklev2.for

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.1 by mocchiut, Mon Dec 5 16:17:39 2005 UTC revision 1.2 by mocchiut, Thu Mar 9 15:46:27 2006 UTC
# Line 21  C Line 21  C
21        call HGNT(42,evno,ierr)        call HGNT(42,evno,ierr)
22        if (ierr.ne.0) print *,'Error reading tracker ntuple'        if (ierr.ne.0) print *,'Error reading tracker ntuple'
23  c      if (ntrk.eq.1) print *,' RIG = ',1./al(5,1)  c      if (ntrk.eq.1) print *,' RIG = ',1./al(5,1)
24    c      print *,' OBT = ',obt
25  C  C
26        RETURN        RETURN
27        END        END
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2
  ViewVC Help
Powered by ViewVC 1.1.23