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

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

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1.2 - (show 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 *************************************************************************
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 integer cltrx !cluster ID (to associate level2 and level1)
34 integer cltry !cluster ID (to associate level2 and level1)
35 c real bdl
36 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 integer clsx !cluster ID (to associate level2 and level1)
41 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 integer clsy !cluster ID (to associate level2 and level1)
46
47 common/level2event/
48 $ good2,crc(12)
49 $ ,nclsx,planex(NSINGMAX),xs(2,NSINGMAX),sgnlxs(NSINGMAX)
50 $ ,clsx(NSINGMAX)
51 $ ,nclsy,planey(NSINGMAX),ys(2,NSINGMAX),sgnlys(NSINGMAX)
52 $ ,clsy(NSINGMAX)
53 $ ,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 $ ,cltrx(nplanes,NTRKMAX)
73 $ ,cltry(nplanes,NTRKMAX)
74 c $ ,bdl(NTRKMAX)
75
76 SAVE/level2event/
77 *********************************************************
78

  ViewVC Help
Powered by ViewVC 1.1.23