/[PAMELA software]/DarthVader/TrackerLevel2/inc/F77/level2.f
ViewVC logotype

Diff of /DarthVader/TrackerLevel2/inc/F77/level2.f

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

revision 1.2 by pam-fi, Tue Sep 5 12:52:20 2006 UTC revision 1.4 by pam-fi, Fri Oct 27 16:08:18 2006 UTC
# Line 7  Line 7 
7  *************************************************************************  *************************************************************************
8    
9        PARAMETER (NTRKMAX=10)    !        PARAMETER (NTRKMAX=10)    !
10        PARAMETER (NSINGMAX=100)  c      PARAMETER (NSINGMAX=100)
11          PARAMETER (NSINGMAX=nclstrmax)
12    
13        integer good2             !flag to mark good or noise events  c      integer good2             !flag to mark good or noise events
14        integer crc               !DSP crc controll  c      integer crc               !DSP crc controll
15          integer good2
16        integer ntrk              !# identified tracks        integer ntrk              !# identified tracks
17        integer image             !flag to tag track-images        integer image             !flag to tag track-images
18        real al_nt                !track state vector        real al_nt                !track state vector
# Line 23  Line 25 
25        real resx_nt                 !spatial resolution        real resx_nt                 !spatial resolution
26        real resy_nt                 !*        real resy_nt                 !*
27        real chi2_nt                 !chi2        real chi2_nt                 !chi2
28          integer nstep_nt             !chi2
29        real xv_nt                   !calculated points        real xv_nt                   !calculated points
30        real yv_nt                  !*        real yv_nt                  !*
31        real zv_nt                  !*        real zv_nt                  !*
# Line 45  c      real bdl Line 48  c      real bdl
48        integer clsy              !cluster ID (to associate level2 and level1)        integer clsy              !cluster ID (to associate level2 and level1)
49    
50        common/level2event/        common/level2event/
51       $      good2,crc(12)  c     $      good2,crc(12)
52         $      good2(12)
53       $     ,nclsx,planex(NSINGMAX),xs(2,NSINGMAX),sgnlxs(NSINGMAX)       $     ,nclsx,planex(NSINGMAX),xs(2,NSINGMAX),sgnlxs(NSINGMAX)
54       $     ,clsx(NSINGMAX)       $     ,clsx(NSINGMAX)
55       $     ,nclsy,planey(NSINGMAX),ys(2,NSINGMAX),sgnlys(NSINGMAX)       $     ,nclsy,planey(NSINGMAX),ys(2,NSINGMAX),sgnlys(NSINGMAX)
# Line 60  c      real bdl Line 64  c      real bdl
64       $     ,al_nt(5,NTRKMAX)       $     ,al_nt(5,NTRKMAX)
65       $     ,coval(5,5,NTRKMAX)       $     ,coval(5,5,NTRKMAX)
66       $     ,chi2_nt(NTRKMAX)       $     ,chi2_nt(NTRKMAX)
67         $     ,nstep_nt(NTRKMAX)
68       $     ,xgood_nt(nplanes,NTRKMAX)       $     ,xgood_nt(nplanes,NTRKMAX)
69       $     ,ygood_nt(nplanes,NTRKMAX)       $     ,ygood_nt(nplanes,NTRKMAX)
70       $     ,xv_nt(nplanes,NTRKMAX)       $     ,xv_nt(nplanes,NTRKMAX)
Legend:
Removed from v.1.2  
changed lines
  Added in v.1.4
  ViewVC Help
Powered by ViewVC 1.1.23