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