/[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.8 by pam-fi, Mon May 14 11:03:05 2007 UTC revision 1.10 by pam-fi, Mon Aug 20 16:07:15 2007 UTC
# Line 27  c$$$      real incuty Line 27  c$$$      real incuty
27  c$$$     $     ,clcutx,clcuty  c$$$     $     ,clcutx,clcuty
28  c$$$     $     ,incutx,incuty  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 87  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
# Line 102  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  c$$$      common/angbinning/nangbin,angL,angR  c$$$      common/angbinning/nangbin,angL,angR
109  c$$$      save/angbinning/  c$$$      save/angbinning/
# Line 110  c$$$      save/pfa/ Line 112  c$$$      save/pfa/
112            
113        common/pfa/nangbin,angL,angR        common/pfa/nangbin,angL,angR
114       $     ,netaval,eta2,feta2,eta3,feta3,eta4,feta4       $     ,netaval,eta2,feta2,eta3,feta3,eta4,feta4
115         $     ,fcorr
116        save/pfa/        save/pfa/
117    
118  *     limit of application of pfa  *     limit of application of pfa

Legend:
Removed from v.1.8  
changed lines
  Added in v.1.10

  ViewVC Help
Powered by ViewVC 1.1.23