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

Diff of /DarthVader/TrackerLevel2/inc/F77/calib.f

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

revision 1.2 by pam-fi, Thu Sep 28 14:04:39 2006 UTC revision 1.7 by pam-fi, Fri Apr 27 10:39:57 2007 UTC
# Line 13  c     pedestal, sigma and badstrip varia Line 13  c     pedestal, sigma and badstrip varia
13  c      c    
14  c------------------------------------------------------------------------  c------------------------------------------------------------------------
15    
       parameter (id_hi_bad=100) !badstrip histo identifier  
       parameter (id_hi_ped=200) !pedestal histo identifier  
       parameter (id_hi_sig=300) !sigma histo identifier  
   
16        real pedestal(nviews,nva1_view,nstrips_va1) !pedestal value        real pedestal(nviews,nva1_view,nstrips_va1) !pedestal value
17        real pedestal_t(nviews,nva1_view,nstrips_va1) !pedestal truncated value        real pedestal_t(nviews,nva1_view,nstrips_va1) !pedestal truncated value
18    
# Line 33  c--------------------------------------- Line 29  c---------------------------------------
29    
30    
31        parameter (clcutx=7.)     !cluster seed cut        parameter (clcutx=7.)     !cluster seed cut
32        parameter (clcuty=7.)        parameter (clcuty=6.)
33        parameter (incutx=4.)     !cut to include strips in cluster definition        parameter (incutx=4.)     !cut to include strips in cluster definition
34        parameter (incuty=4.)        parameter (incuty=4.)
35    
36    c------------------------------------------------------------------------
37    c    
38    c     VA1-mask
39    c    
40    c------------------------------------------------------------------------
41    c     VA1 mask, from the DB
42    c      0 = force mask
43    c      1 = ---> run-by-run mask ---> event-by-event mask
44    c     -1 = ---> event-by-event mask
45    c     -------------------------------------
46          integer mask_vk(nviews,nva1_view)    
47    c     -------------------------------------
48    c     VA1 mask run-by-run (set to 0 if <SIG> < SIG_min)
49    c      0 = force mask
50    c      1 = ---> event-by-event mask
51    c     -------------------------------------
52          integer mask_vk_run(nviews,nva1_view)
53    c     -------------------------------------
54    c     VA1 mask event-by-event (set to 0 if CN computation fails)
55    c      0 = force mask
56    c      1 = search clusters
57    c     -------------------------------------
58          integer mask_vk_ev(nviews,nva1_view)
59    
60        parameter (id_hi_mask=400) !mask histo identifier        integer mask(nviews,nva1_view,nstrips_va1) !effective mask
   
       integer mask(nviews,nva1_view,nstrips_va1)  
       integer mask_vk(nviews,nva1_view)  
61    
62        common/mask/mask,mask_vk  *     set from outside F77 routines
63          common/mask/mask_vk,mask_vk_run
64        save/mask/        save/mask/
65    *     set event-by-event
66          common/maskev/mask_vk_ev,mask
67    
68  c------------------------------------------------------------------------  c------------------------------------------------------------------------
69  c      c    
# Line 53  c     Line 72  c    
72  c------------------------------------------------------------------------  c------------------------------------------------------------------------
73  *     angular binning  *     angular binning
74  *     NB the angular binning is defined in common_preanalysis.f  *     NB the angular binning is defined in common_preanalysis.f
75  *     here are defined variables to retrieve calibration info  *     here are defned variables to retrieve calibration info
76  *     (for processing levels next to 1)  *     (for processing levels next to 1)
77        parameter (nangmax=21)    !maximum number of angular bins        parameter (nangmax=21)    !maximum number of angular bins
78        integer nangbin        integer nangbin
79        real angL(nangmax),angR(nangmax) !Left and Right bin limits        real angL(nangmax),angR(nangmax) !Left and Right bin limits
80    
81        parameter (netavalmax=150)   !eta2 points        parameter (netavalmax=500)   !eta2 points
82        integer netaval        integer netaval
83        real eta2(netavalmax,nangmax)        real eta2(netavalmax,nangmax)
84        real feta2(netavalmax,nviews,nladders_view,nangmax)        real feta2(netavalmax,nviews,nladders_view,nangmax)
# Line 68  c--------------------------------------- Line 87  c---------------------------------------
87        real eta4(netavalmax,nangmax)        real eta4(netavalmax,nangmax)
88        real feta4(netavalmax,nviews,nladders_view,nangmax)        real feta4(netavalmax,nviews,nladders_view,nangmax)
89    
90        common/angbinning/nangbin,angL,angR  c$$$      common/angbinning/nangbin,angL,angR
91        save/angbinning/  c$$$      save/angbinning/
92        common/pfa/netaval,eta2,feta2,eta3,feta3,eta4,feta4  c$$$      common/pfa/netaval,eta2,feta2,eta3,feta3,eta4,feta4
93    c$$$      save/pfa/
94        
95          common/pfa/nangbin,angL,angR
96         $     ,netaval,eta2,feta2,eta3,feta3,eta4,feta4
97        save/pfa/        save/pfa/
98    
99    *     limit of application of pfa
100          parameter (e2fax=0.)
101          parameter (e2tax=10.)
102          parameter (e3fax=10.)
103          parameter (e3tax=15.)
104          parameter (e4fax=90.)
105          parameter (e4tax=90.)
106    
107          parameter (e2fay=0.)
108          parameter (e2tay=20.)
109          parameter (e3fay=90.)
110          parameter (e3tay=90.)
111          parameter (e4fay=90.)
112          parameter (e4tay=90.)
113    
114  c------------------------------------------------------------------------  c------------------------------------------------------------------------
115  c      c    
116  c     CHARGE CORRELATION  c     CHARGE CORRELATION
# Line 80  c--------------------------------------- Line 119  c---------------------------------------
119    
120  c      parameter (chcut=3.)      !cut to associate two clusters  c      parameter (chcut=3.)      !cut to associate two clusters
121  c      parameter (chcut=4.)      !cut to associate two clusters  c      parameter (chcut=4.)      !cut to associate two clusters
122        parameter (chcut=10.)      !cut to associate two clusters        parameter (chcut=50.)      !cut to associate two clusters
123        parameter (chsatx=2500.)   !saturation limit        parameter (chsatx=1700.)   !saturation limit
124        parameter (chsaty=2500.)   !saturation limit        parameter (chsaty=2500.)   !saturation limit
125          parameter (chmipx=200.)   !mip limit
126          parameter (chmipy=200.)   !mip limit
127  *     above saturation limit correlation conditions are not applied  *     above saturation limit correlation conditions are not applied
128        real kch(nplanes,nladders_view) !angular coeff        real kch(nplanes,nladders_view) !angular coeff
129        real cch(nplanes,nladders_view) !const        real cch(nplanes,nladders_view) !const
Legend:
Removed from v.1.2  
changed lines
  Added in v.1.7
  ViewVC Help
Powered by ViewVC 1.1.23