/[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.5 by pam-fi, Mon Feb 5 16:01:51 2007 UTC revision 1.7 by pam-fi, Fri Apr 27 10:39:57 2007 UTC
# Line 78  c--------------------------------------- Line 78  c---------------------------------------
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 91  c$$$      common/angbinning/nangbin,angL Line 91  c$$$      common/angbinning/nangbin,angL
91  c$$$      save/angbinning/  c$$$      save/angbinning/
92  c$$$      common/pfa/netaval,eta2,feta2,eta3,feta3,eta4,feta4  c$$$      common/pfa/netaval,eta2,feta2,eta3,feta3,eta4,feta4
93  c$$$      save/pfa/  c$$$      save/pfa/
94        
95        common/pfa/nangbin,angL,angR        common/pfa/nangbin,angL,angR
96       $     ,netaval,eta2,feta2,eta3,feta3,eta4,feta4       $     ,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
Legend:
Removed from v.1.5  
changed lines
  Added in v.1.7
  ViewVC Help
Powered by ViewVC 1.1.23