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