/[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.7 by pam-fi, Fri Apr 27 10:39:57 2007 UTC revision 1.9 by pam-fi, Fri Aug 17 14:36:05 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  c------------------------------------------------------------------------  c------------------------------------------------------------------------
31  c      c    
32  c     pedestal, sigma and badstrip variables  c     pedestal, sigma and badstrip variables
# Line 28  c--------------------------------------- Line 48  c---------------------------------------
48        save/pedsigbad/        save/pedsigbad/
49    
50    
       parameter (clcutx=7.)     !cluster seed cut  
       parameter (clcuty=6.)  
       parameter (incutx=4.)     !cut to include strips in cluster definition  
       parameter (incuty=4.)  
51    
52  c------------------------------------------------------------------------  c------------------------------------------------------------------------
53  c      c    
# Line 86  c--------------------------------------- Line 102  c---------------------------------------
102        real feta3(netavalmax,nviews,nladders_view,nangmax)        real feta3(netavalmax,nviews,nladders_view,nangmax)
103        real eta4(netavalmax,nangmax)        real eta4(netavalmax,nangmax)
104        real feta4(netavalmax,nviews,nladders_view,nangmax)        real feta4(netavalmax,nviews,nladders_view,nangmax)
105          real fcorr(nviews,nladders_view,nangmax)
106    
107  c$$$      common/angbinning/nangbin,angL,angR  c$$$      common/angbinning/nangbin,angL,angR
108  c$$$      save/angbinning/  c$$$      save/angbinning/
# Line 94  c$$$      save/pfa/ Line 111  c$$$      save/pfa/
111            
112        common/pfa/nangbin,angL,angR        common/pfa/nangbin,angL,angR
113       $     ,netaval,eta2,feta2,eta3,feta3,eta4,feta4       $     ,netaval,eta2,feta2,eta3,feta3,eta4,feta4
114         $     ,fcorr
115        save/pfa/        save/pfa/
116    
117  *     limit of application of pfa  *     limit of application of pfa
Legend:
Removed from v.1.7  
changed lines
  Added in v.1.9
  ViewVC Help
Powered by ViewVC 1.1.23