/[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.5 by pam-fi, Fri Apr 27 10:39:57 2007 UTC revision 1.7 by pam-fi, Wed Mar 5 17:00:18 2008 UTC
# Line 43  Line 43 
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/
63       $      good2(12)       $      good2(12)
64       $     ,vkflag(12,24)       $     ,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 83  Line 97 
97       $     ,dedx_y(nplanes,NTRKMAX)       $     ,dedx_y(nplanes,NTRKMAX)
98       $     ,cltrx(nplanes,NTRKMAX)       $     ,cltrx(nplanes,NTRKMAX)
99       $     ,cltry(nplanes,NTRKMAX)       $     ,cltry(nplanes,NTRKMAX)
100         $     ,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.5  
changed lines
  Added in v.1.7
  ViewVC Help
Powered by ViewVC 1.1.23