/[PAMELA software]/root2paw/inc/COMMON2.TXT
ViewVC logotype

Diff of /root2paw/inc/COMMON2.TXT

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.1 by mocchiut, Mon Dec 5 16:17:38 2005 UTC revision 1.2 by mocchiut, Thu Mar 9 15:46:24 2006 UTC
# Line 1  Line 1 
1        IMPLICIT NONE            IMPLICIT NONE    
2                
3        INTEGER NPLANES, NTRKMAX        INTEGER NPLANES, NTRKMAX, NSNGMAX
4    
5          PARAMETER (NSNGMAX=500)    !ncloyz_max*ncloxz_max)
6        PARAMETER (NTRKMAX=50)    !ncloyz_max*ncloxz_max)        PARAMETER (NTRKMAX=50)    !ncloyz_max*ncloxz_max)
7        PARAMETER (NPLANES=6)    !ncloyz_max*ncloxz_max)        PARAMETER (NPLANES=6)    !ncloyz_max*ncloxz_max)
8    
9  c     EVENT block:  c     EVENT block:
10  *     -----------------------------------------------------------  *     -----------------------------------------------------------
11        logical good2             !flag to mark good or noise events        logical good2             !flag to mark good or noise events
12          logical crc,cpu_crc
13        integer nev2              !level2 event number        integer nev2              !level2 event number
14          integer swcode
15    
16  c     CPU block (only for ground data):  c     CPU block (only for ground data):
17  *     -----------------------------------------------------------  *     -----------------------------------------------------------
# Line 44  c     TRACK PARAMETERS       Line 47  c     TRACK PARAMETERS      
47        real zv                !*        real zv                !*
48        real axv               !calculated angles (deg)        real axv               !calculated angles (deg)
49        real ayv               !*        real ayv               !*
50          real dedx_x
51          real dedx_y
52          real bdl
53    
54  *     -----------------------------------------------------------  *     -----------------------------------------------------------
55  *     Common to store SINGLET info  *     Common to store SINGLET info
56  *     (clusters not associated with any track)  *     (clusters not associated with any track)
57  *     -----------------------------------------------------------  *     -----------------------------------------------------------
58        integer nclsx             !# unassociated clusters per plane X views        integer nclsx             !# unassociated clusters per plane X views
59          integer planex
60          real xs
61          real sgnlxs
62        integer nclsy             !     "            "      "   "    Y views        integer nclsy             !     "            "      "   "    Y views
63          integer planey
64          real ys
65          real sgnlys
66          integer image
67          real coval
68    
69        common/trklev2/good2,nev2,              common/trklev2/good2,nev2,      
70       $     pkt_type,pkt_num,obt,which_calib,       $     which_calib,
71         $     swcode,
72         $     crc(12),
73         $     pkt_type,pkt_num,obt,cpu_crc,
74       $     ntrk       $     ntrk
75         $     ,image(ntrkmax)
76       $     ,xm(nplanes,NTRKMAX)       $     ,xm(nplanes,NTRKMAX)
77       $     ,ym(nplanes,NTRKMAX)       $     ,ym(nplanes,NTRKMAX)
78       $     ,zm(nplanes,NTRKMAX)       $     ,zm(nplanes,NTRKMAX)
79       $     ,resx(nplanes,NTRKMAX)       $     ,resx(nplanes,NTRKMAX)
80       $     ,resy(nplanes,NTRKMAX)       $     ,resy(nplanes,NTRKMAX)
81       $     ,al(5,NTRKMAX)       $     ,al(5,NTRKMAX)
82         $     ,coval(5,5,ntrkmax)
83       $     ,chi2(NTRKMAX)       $     ,chi2(NTRKMAX)
84       $     ,xgood(nplanes,NTRKMAX)       $     ,xgood(nplanes,NTRKMAX)
85       $     ,ygood(nplanes,NTRKMAX)       $     ,ygood(nplanes,NTRKMAX)
# Line 68  c     TRACK PARAMETERS       Line 88  c     TRACK PARAMETERS      
88       $     ,zv(nplanes,NTRKMAX)       $     ,zv(nplanes,NTRKMAX)
89       $     ,axv(nplanes,NTRKMAX)       $     ,axv(nplanes,NTRKMAX)
90       $     ,ayv(nplanes,NTRKMAX)       $     ,ayv(nplanes,NTRKMAX)
91       $     ,nclsx(nplanes),nclsy(nplanes)       $     ,dedx_x(ntrkmax)
92         $     ,dedx_y(ntrkmax)
93         $     ,bdl(ntrkmax)
94         $     ,nclsx
95         $     ,planex(nsngmax)
96         $     ,xs(2,nsngmax)
97         $     ,sgnlxs(nsngmax)
98         $     ,nclsy
99         $     ,planey(nsngmax)
100         $     ,ys(2,nsngmax)
101         $     ,sgnlys(nsngmax)
102          
103    
104        SAVE /trklev2/        SAVE /trklev2/
105    
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2
  ViewVC Help
Powered by ViewVC 1.1.23