/[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.4 by pam-fi, Fri Oct 27 16:08:18 2006 UTC revision 1.7 by pam-fi, Wed Mar 5 17:00:18 2008 UTC
# Line 7  Line 7 
7  *************************************************************************  *************************************************************************
8    
9        PARAMETER (NTRKMAX=10)    !        PARAMETER (NTRKMAX=10)    !
 c      PARAMETER (NSINGMAX=100)  
10        PARAMETER (NSINGMAX=nclstrmax)        PARAMETER (NSINGMAX=nclstrmax)
11    
 c      integer good2             !flag to mark good or noise events  
 c      integer crc               !DSP crc controll  
12        integer good2        integer good2
13          integer vkflag            !viking-chip flag (-1:masked 0:CN-failure 1:ok)
14        integer ntrk              !# identified tracks        integer ntrk              !# identified tracks
15        integer image             !flag to tag track-images        integer image             !flag to tag track-images
16        real al_nt                !track state vector        real al_nt                !track state vector
17        real coval                !covariance matrix        real coval                !covariance matrix
18        integer xgood_nt             !mask of used planes        integer xgood_nt             !mask of used planes
19        integer ygood_nt             !*        integer ygood_nt             !*
20          integer ls                   !10*ladder+sensor
21          integer xbad              !number of bad strips
22          integer ybad              !"
23        real xm_nt                   !measured points        real xm_nt                   !measured points
24        real ym_nt                   !*        real ym_nt                   !*
25        real zm_nt                   !*        real zm_nt                   !*
26        real resx_nt                 !spatial resolution        real resx_nt                 !spatial resolution
27        real resy_nt                 !*        real resy_nt                 !*
28          real tailx_nt                 !spatial resolution
29          real taily_nt                 !*
30        real chi2_nt                 !chi2        real chi2_nt                 !chi2
31        integer nstep_nt             !chi2        integer nstep_nt             !chi2
32        real xv_nt                   !calculated points        real xv_nt                   !calculated points
# Line 35  c      integer crc               !DSP cr Line 38  c      integer crc               !DSP cr
38        real dedx_y               !signal in MIP scaled to 300 micrometer        real dedx_y               !signal in MIP scaled to 300 micrometer
39        integer cltrx             !cluster ID (to associate level2 and level1)        integer cltrx             !cluster ID (to associate level2 and level1)
40        integer cltry             !cluster ID (to associate level2 and level1)        integer cltry             !cluster ID (to associate level2 and level1)
 c      real bdl  
41        integer nclsx             !# unassociated clusters  X views        integer nclsx             !# unassociated clusters  X views
42        integer planex            !plane of single x        integer planex            !plane of single x
43        real xs                   !center coord of single x        real xs                   !center coord of single x
44        real sgnlxs               !signal in MIP of single x        real sgnlxs               !signal in MIP of single x
45        integer clsx              !cluster ID (to associate level2 and level1)        integer clsx              !cluster ID (to associate level2 and level1)
46          integer sxbad             !number of bad strips (x-singlets)
47          integer multmaxsx         !cluster multiplicity and max strip
48        integer nclsy             !     "            "      Y views        integer nclsy             !     "            "      Y views
49        integer planey            !plane of single y        integer planey            !plane of single y
50        real ys                   !center coord of single y        real ys                   !center coord of single y
51        real sgnlys               !signal in MIP of single y        real sgnlys               !signal in MIP of single y
52        integer clsy              !cluster ID (to associate level2 and level1)        integer clsy              !cluster ID (to associate level2 and level1)
53          integer sybad             !number of bad strips (x-singlets)
54          integer multmaxsy         !cluster multiplicity and max strip
55          integer multmaxx          !cluster multiplicity and max strip
56          integer multmaxy          !cluster multiplicity and max strip
57          real    seedx             !cluster seed
58          real    seedy             !cluster seed
59          real    xpu               !cluster coordinate in pitch units
60          real    ypu               !cluster coordinate in pitch units
61    
62        common/level2event/        common/level2event/
 c     $      good2,crc(12)  
63       $      good2(12)       $      good2(12)
64         $     ,vkflag(12,24)
65       $     ,nclsx,planex(NSINGMAX),xs(2,NSINGMAX),sgnlxs(NSINGMAX)       $     ,nclsx,planex(NSINGMAX),xs(2,NSINGMAX),sgnlxs(NSINGMAX)
66       $     ,clsx(NSINGMAX)       $     ,clsx(NSINGMAX)
67         $     ,sxbad(NSINGMAX)
68         $     ,multmaxsx(NSINGMAX)
69       $     ,nclsy,planey(NSINGMAX),ys(2,NSINGMAX),sgnlys(NSINGMAX)       $     ,nclsy,planey(NSINGMAX),ys(2,NSINGMAX),sgnlys(NSINGMAX)
70       $     ,clsy(NSINGMAX)       $     ,clsy(NSINGMAX)
71         $     ,sybad(NSINGMAX)
72         $     ,multmaxsy(NSINGMAX)
73       $     ,ntrk       $     ,ntrk
74       $     ,image(NTRKMAX)       $     ,image(NTRKMAX)
75       $     ,xm_nt(nplanes,NTRKMAX)       $     ,xm_nt(nplanes,NTRKMAX)
# Line 61  c     $      good2,crc(12) Line 77  c     $      good2,crc(12)
77       $     ,zm_nt(nplanes,NTRKMAX)       $     ,zm_nt(nplanes,NTRKMAX)
78       $     ,resx_nt(nplanes,NTRKMAX)       $     ,resx_nt(nplanes,NTRKMAX)
79       $     ,resy_nt(nplanes,NTRKMAX)       $     ,resy_nt(nplanes,NTRKMAX)
80         $     ,tailx_nt(nplanes,NTRKMAX)
81         $     ,taily_nt(nplanes,NTRKMAX)
82       $     ,al_nt(5,NTRKMAX)       $     ,al_nt(5,NTRKMAX)
83       $     ,coval(5,5,NTRKMAX)       $     ,coval(5,5,NTRKMAX)
84       $     ,chi2_nt(NTRKMAX)       $     ,chi2_nt(NTRKMAX)
85       $     ,nstep_nt(NTRKMAX)       $     ,nstep_nt(NTRKMAX)
86       $     ,xgood_nt(nplanes,NTRKMAX)       $     ,xgood_nt(nplanes,NTRKMAX)
87       $     ,ygood_nt(nplanes,NTRKMAX)       $     ,ygood_nt(nplanes,NTRKMAX)
88         $     ,ls(nplanes,NTRKMAX)
89         $     ,xbad(nplanes,NTRKMAX)
90         $     ,ybad(nplanes,NTRKMAX)
91       $     ,xv_nt(nplanes,NTRKMAX)       $     ,xv_nt(nplanes,NTRKMAX)
92       $     ,yv_nt(nplanes,NTRKMAX)       $     ,yv_nt(nplanes,NTRKMAX)
93       $     ,zv_nt(nplanes,NTRKMAX)       $     ,zv_nt(nplanes,NTRKMAX)
# Line 76  c     $      good2,crc(12) Line 97  c     $      good2,crc(12)
97       $     ,dedx_y(nplanes,NTRKMAX)       $     ,dedx_y(nplanes,NTRKMAX)
98       $     ,cltrx(nplanes,NTRKMAX)       $     ,cltrx(nplanes,NTRKMAX)
99       $     ,cltry(nplanes,NTRKMAX)       $     ,cltry(nplanes,NTRKMAX)
100  c     $     ,bdl(NTRKMAX)       $     ,multmaxx(nplanes,NTRKMAX)
101         $     ,multmaxy(nplanes,NTRKMAX)
102         $     ,seedx(nplanes,NTRKMAX)
103         $     ,seedy(nplanes,NTRKMAX)
104         $     ,xpu(nplanes,NTRKMAX)
105         $     ,ypu(nplanes,NTRKMAX)
106    
107        SAVE/level2event/        SAVE/level2event/
108  *********************************************************  *********************************************************
Legend:
Removed from v.1.4  
changed lines
  Added in v.1.7
  ViewVC Help
Powered by ViewVC 1.1.23