/[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.1 - (hide annotations) (download)
Fri May 19 13:15:53 2006 UTC (18 years, 6 months ago) by mocchiut
Branch: MAIN
Branch point for: DarthVader
Initial revision

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     real bdl
34     integer nclsx !# unassociated clusters X views
35     integer planex !plane of single x
36     real xs !center coord of single x
37     real sgnlxs !signal in MIP of single x
38     integer nclsy ! " " Y views
39     integer planey !plane of single y
40     real ys !center coord of single y
41     real sgnlys !signal in MIP of single y
42    
43     common/level2event/
44     $ good2,crc(12)
45     $ ,nclsx,planex(NSINGMAX),xs(2,NSINGMAX),sgnlxs(NSINGMAX) !(2)
46     $ ,nclsy,planey(NSINGMAX),ys(2,NSINGMAX),sgnlys(NSINGMAX) !(2)
47     $ ,ntrk
48     $ ,image(NTRKMAX)
49     $ ,xm_nt(nplanes,NTRKMAX)
50     $ ,ym_nt(nplanes,NTRKMAX)
51     $ ,zm_nt(nplanes,NTRKMAX)
52     $ ,resx_nt(nplanes,NTRKMAX)
53     $ ,resy_nt(nplanes,NTRKMAX)
54     $ ,al_nt(5,NTRKMAX)
55     $ ,coval(5,5,NTRKMAX)
56     $ ,chi2_nt(NTRKMAX)
57     $ ,xgood_nt(nplanes,NTRKMAX)
58     $ ,ygood_nt(nplanes,NTRKMAX)
59     $ ,xv_nt(nplanes,NTRKMAX)
60     $ ,yv_nt(nplanes,NTRKMAX)
61     $ ,zv_nt(nplanes,NTRKMAX)
62     $ ,axv_nt(nplanes,NTRKMAX)
63     $ ,ayv_nt(nplanes,NTRKMAX)
64     $ ,dedx_x(nplanes,NTRKMAX)
65     $ ,dedx_y(nplanes,NTRKMAX)
66     $ ,bdl(NTRKMAX)
67    
68     SAVE/level2event/
69     *********************************************************
70    

  ViewVC Help
Powered by ViewVC 1.1.23