/[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.4 by pam-fi, Thu Nov 23 18:51:44 2006 UTC revision 1.12 by mocchiut, Tue May 15 14:31:38 2012 UTC
# Line 7  Line 7 
7  *      *    
8  *************************************************************************  *************************************************************************
9    
10          real incutx               !cut to include strips in cluster definition
11          real incuty
12          parameter (clcutx=7.)     !cluster seed cut
13          parameter (clcuty=6.)
14          parameter (incutx=4.)     !cut to include strips in cluster definition
15          parameter (incuty=4.)
16    
17    c------------------------------------------------------------------------
18    c    
19    c     some parameters to configure data reduction
20    c    
21    c------------------------------------------------------------------------
22    c$$$      real clcutx               !cluster seed cut
23    c$$$      real clcuty
24    c$$$      real incutx               !cut to include strips in cluster definition
25    c$$$      real incuty
26          integer pfaid             !if of PFA
27          common/sw/
28         $     pfaid
29    c$$$     $     ,clcutx,clcuty
30    c$$$     $     ,incutx,incuty
31    
32          save/sw/
33    
34  c------------------------------------------------------------------------  c------------------------------------------------------------------------
35  c      c    
36  c     pedestal, sigma and badstrip variables  c     pedestal, sigma and badstrip variables
# Line 28  c--------------------------------------- Line 52  c---------------------------------------
52        save/pedsigbad/        save/pedsigbad/
53    
54    
       parameter (clcutx=7.)     !cluster seed cut  
       parameter (clcuty=6.)  
       parameter (incutx=4.)     !cut to include strips in cluster definition  
       parameter (incuty=4.)  
55    
56  c------------------------------------------------------------------------  c------------------------------------------------------------------------
57  c      c    
# Line 71  c     eta2, eta3, eta4 pfa correction pa Line 91  c     eta2, eta3, eta4 pfa correction pa
91  c      c    
92  c------------------------------------------------------------------------  c------------------------------------------------------------------------
93  *     angular binning  *     angular binning
 *     NB the angular binning is defined in common_preanalysis.f  
 *     here are defned variables to retrieve calibration info  
 *     (for processing levels next to 1)  
94        parameter (nangmax=21)    !maximum number of angular bins        parameter (nangmax=21)    !maximum number of angular bins
95        integer nangbin        integer nangbin
96        real angL(nangmax),angR(nangmax) !Left and Right bin limits        real angL(nangmax),angR(nangmax) !Left and Right bin limits
97    
98        parameter (netavalmax=150)   !eta2 points        parameter (netavalmax=500)   !eta2 points
99        integer netaval        integer netaval
100        real eta2(netavalmax,nangmax)        real eta2(netavalmax,nangmax)
101        real feta2(netavalmax,nviews,nladders_view,nangmax)        real feta2(netavalmax,nviews,nladders_view,nangmax)
# Line 86  c--------------------------------------- Line 103  c---------------------------------------
103        real feta3(netavalmax,nviews,nladders_view,nangmax)        real feta3(netavalmax,nviews,nladders_view,nangmax)
104        real eta4(netavalmax,nangmax)        real eta4(netavalmax,nangmax)
105        real feta4(netavalmax,nviews,nladders_view,nangmax)        real feta4(netavalmax,nviews,nladders_view,nangmax)
106          real fcorr(nviews,nladders_view,nangmax)
107        common/angbinning/nangbin,angL,angR  *     limit of application of pfa
108        save/angbinning/        real e2fax,e2tax,e3fax,e3tax,e4fax,e4tax
109        common/pfa/netaval,eta2,feta2,eta3,feta3,eta4,feta4        real e2fay,e2tay,e3fay,e3tay,e4fay,e4tay
110          
111    
112    c$$$      common/angbinning/nangbin,angL,angR
113    c$$$      save/angbinning/
114    c$$$      common/pfa/netaval,eta2,feta2,eta3,feta3,eta4,feta4
115    c$$$      save/pfa/
116        
117          common/pfa/nangbin,angL,angR
118         $     ,netaval,eta2,feta2,eta3,feta3,eta4,feta4
119         $     ,fcorr
120         $     ,e2fax,e2tax,e3fax,e3tax,e4fax,e4tax
121         $     ,e2fay,e2tay,e3fay,e3tay,e4fay,e4tay
122        save/pfa/        save/pfa/
123    
124    c$$$*     limit of application of pfa
125    c$$$      parameter (e2fax=0.)
126    c$$$      parameter (e2tax=10.)
127    c$$$      parameter (e3fax=10.)
128    c$$$      parameter (e3tax=15.)
129    c$$$      parameter (e4fax=90.)
130    c$$$      parameter (e4tax=90.)
131    c$$$
132    c$$$      parameter (e2fay=0.)
133    c$$$      parameter (e2tay=20.)
134    c$$$      parameter (e3fay=90.)
135    c$$$      parameter (e3tay=90.)
136    c$$$      parameter (e4fay=90.)
137    c$$$      parameter (e4tay=90.)
138    
139  c------------------------------------------------------------------------  c------------------------------------------------------------------------
140  c      c    
141  c     CHARGE CORRELATION  c     CHARGE CORRELATION
Legend:
Removed from v.1.4  
changed lines
  Added in v.1.12
  ViewVC Help
Powered by ViewVC 1.1.23