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