/[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.1.1.1 by mocchiut, Fri May 19 13:15:53 2006 UTC revision 1.3 by pam-fi, Thu Sep 28 14:04:39 2006 UTC
# Line 9  Line 9 
9        PARAMETER (NTRKMAX=10)    !        PARAMETER (NTRKMAX=10)    !
10        PARAMETER (NSINGMAX=100)        PARAMETER (NSINGMAX=100)
11    
12        integer good2             !flag to mark good or noise events  c      integer good2             !flag to mark good or noise events
13        integer crc               !DSP crc controll  c      integer crc               !DSP crc controll
14          integer good2
15        integer ntrk              !# identified tracks        integer ntrk              !# identified tracks
16        integer image             !flag to tag track-images        integer image             !flag to tag track-images
17        real al_nt                !track state vector        real al_nt                !track state vector
# Line 23  Line 24 
24        real resx_nt                 !spatial resolution        real resx_nt                 !spatial resolution
25        real resy_nt                 !*        real resy_nt                 !*
26        real chi2_nt                 !chi2        real chi2_nt                 !chi2
27          integer nstep_nt             !chi2
28        real xv_nt                   !calculated points        real xv_nt                   !calculated points
29        real yv_nt                  !*        real yv_nt                  !*
30        real zv_nt                  !*        real zv_nt                  !*
# Line 30  Line 32 
32        real ayv_nt                  !*        real ayv_nt                  !*
33        real dedx_x               !signal in MIP scaled to 300 micrometer        real dedx_x               !signal in MIP scaled to 300 micrometer
34        real dedx_y               !signal in MIP scaled to 300 micrometer        real dedx_y               !signal in MIP scaled to 300 micrometer
35        real bdl        integer cltrx             !cluster ID (to associate level2 and level1)
36          integer cltry             !cluster ID (to associate level2 and level1)
37    c      real bdl
38        integer nclsx             !# unassociated clusters  X views        integer nclsx             !# unassociated clusters  X views
39        integer planex            !plane of single x        integer planex            !plane of single x
40        real xs                   !center coord of single x        real xs                   !center coord of single x
41        real sgnlxs               !signal in MIP of single x        real sgnlxs               !signal in MIP of single x
42          integer clsx              !cluster ID (to associate level2 and level1)
43        integer nclsy             !     "            "      Y views        integer nclsy             !     "            "      Y views
44        integer planey            !plane of single y        integer planey            !plane of single y
45        real ys                   !center coord of single y        real ys                   !center coord of single y
46        real sgnlys               !signal in MIP of single y        real sgnlys               !signal in MIP of single y
47          integer clsy              !cluster ID (to associate level2 and level1)
48    
49        common/level2event/        common/level2event/
50       $      good2,crc(12)  c     $      good2,crc(12)
51       $     ,nclsx,planex(NSINGMAX),xs(2,NSINGMAX),sgnlxs(NSINGMAX) !(2)       $      good2(12)
52       $     ,nclsy,planey(NSINGMAX),ys(2,NSINGMAX),sgnlys(NSINGMAX) !(2)       $     ,nclsx,planex(NSINGMAX),xs(2,NSINGMAX),sgnlxs(NSINGMAX)
53         $     ,clsx(NSINGMAX)
54         $     ,nclsy,planey(NSINGMAX),ys(2,NSINGMAX),sgnlys(NSINGMAX)
55         $     ,clsy(NSINGMAX)
56       $     ,ntrk       $     ,ntrk
57       $     ,image(NTRKMAX)       $     ,image(NTRKMAX)
58       $     ,xm_nt(nplanes,NTRKMAX)       $     ,xm_nt(nplanes,NTRKMAX)
# Line 54  Line 63 
63       $     ,al_nt(5,NTRKMAX)       $     ,al_nt(5,NTRKMAX)
64       $     ,coval(5,5,NTRKMAX)       $     ,coval(5,5,NTRKMAX)
65       $     ,chi2_nt(NTRKMAX)       $     ,chi2_nt(NTRKMAX)
66         $     ,nstep_nt(NTRKMAX)
67       $     ,xgood_nt(nplanes,NTRKMAX)       $     ,xgood_nt(nplanes,NTRKMAX)
68       $     ,ygood_nt(nplanes,NTRKMAX)       $     ,ygood_nt(nplanes,NTRKMAX)
69       $     ,xv_nt(nplanes,NTRKMAX)       $     ,xv_nt(nplanes,NTRKMAX)
# Line 63  Line 73 
73       $     ,ayv_nt(nplanes,NTRKMAX)       $     ,ayv_nt(nplanes,NTRKMAX)
74       $     ,dedx_x(nplanes,NTRKMAX)       $     ,dedx_x(nplanes,NTRKMAX)
75       $     ,dedx_y(nplanes,NTRKMAX)       $     ,dedx_y(nplanes,NTRKMAX)
76       $     ,bdl(NTRKMAX)       $     ,cltrx(nplanes,NTRKMAX)
77         $     ,cltry(nplanes,NTRKMAX)
78    c     $     ,bdl(NTRKMAX)
79    
80        SAVE/level2event/        SAVE/level2event/
81  *********************************************************  *********************************************************
Legend:
Removed from v.1.1.1.1  
changed lines
  Added in v.1.3
  ViewVC Help
Powered by ViewVC 1.1.23