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

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

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1.2 - (hide annotations) (download)
Tue Sep 5 12:52:20 2006 UTC (18 years, 3 months ago) by pam-fi
Branch: MAIN
CVS Tags: v2r00BETA
Changes since 1.1: +12 -4 lines
implemented class TrkLevel1

1 mocchiut 1.1 *************************************************************************
2     *
3     * Common level2.f
4     *
5     * contains LEVEL2 ntuple variables definitions
6     *
7     *************************************************************************
8    
9     PARAMETER (NTRKMAX=10) !
10     PARAMETER (NSINGMAX=100)
11    
12     integer good2 !flag to mark good or noise events
13     integer crc !DSP crc controll
14     integer ntrk !# identified tracks
15     integer image !flag to tag track-images
16     real al_nt !track state vector
17     real coval !covariance matrix
18     integer xgood_nt !mask of used planes
19     integer ygood_nt !*
20     real xm_nt !measured points
21     real ym_nt !*
22     real zm_nt !*
23     real resx_nt !spatial resolution
24     real resy_nt !*
25     real chi2_nt !chi2
26     real xv_nt !calculated points
27     real yv_nt !*
28     real zv_nt !*
29     real axv_nt !calculated angles (deg)
30     real ayv_nt !*
31     real dedx_x !signal in MIP scaled to 300 micrometer
32     real dedx_y !signal in MIP scaled to 300 micrometer
33 pam-fi 1.2 integer cltrx !cluster ID (to associate level2 and level1)
34     integer cltry !cluster ID (to associate level2 and level1)
35     c real bdl
36 mocchiut 1.1 integer nclsx !# unassociated clusters X views
37     integer planex !plane of single x
38     real xs !center coord of single x
39     real sgnlxs !signal in MIP of single x
40 pam-fi 1.2 integer clsx !cluster ID (to associate level2 and level1)
41 mocchiut 1.1 integer nclsy ! " " Y views
42     integer planey !plane of single y
43     real ys !center coord of single y
44     real sgnlys !signal in MIP of single y
45 pam-fi 1.2 integer clsy !cluster ID (to associate level2 and level1)
46 mocchiut 1.1
47     common/level2event/
48     $ good2,crc(12)
49 pam-fi 1.2 $ ,nclsx,planex(NSINGMAX),xs(2,NSINGMAX),sgnlxs(NSINGMAX)
50     $ ,clsx(NSINGMAX)
51     $ ,nclsy,planey(NSINGMAX),ys(2,NSINGMAX),sgnlys(NSINGMAX)
52     $ ,clsy(NSINGMAX)
53 mocchiut 1.1 $ ,ntrk
54     $ ,image(NTRKMAX)
55     $ ,xm_nt(nplanes,NTRKMAX)
56     $ ,ym_nt(nplanes,NTRKMAX)
57     $ ,zm_nt(nplanes,NTRKMAX)
58     $ ,resx_nt(nplanes,NTRKMAX)
59     $ ,resy_nt(nplanes,NTRKMAX)
60     $ ,al_nt(5,NTRKMAX)
61     $ ,coval(5,5,NTRKMAX)
62     $ ,chi2_nt(NTRKMAX)
63     $ ,xgood_nt(nplanes,NTRKMAX)
64     $ ,ygood_nt(nplanes,NTRKMAX)
65     $ ,xv_nt(nplanes,NTRKMAX)
66     $ ,yv_nt(nplanes,NTRKMAX)
67     $ ,zv_nt(nplanes,NTRKMAX)
68     $ ,axv_nt(nplanes,NTRKMAX)
69     $ ,ayv_nt(nplanes,NTRKMAX)
70     $ ,dedx_x(nplanes,NTRKMAX)
71     $ ,dedx_y(nplanes,NTRKMAX)
72 pam-fi 1.2 $ ,cltrx(nplanes,NTRKMAX)
73     $ ,cltry(nplanes,NTRKMAX)
74     c $ ,bdl(NTRKMAX)
75 mocchiut 1.1
76     SAVE/level2event/
77     *********************************************************
78    

  ViewVC Help
Powered by ViewVC 1.1.23