/[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.10 by pam-fi, Mon Aug 20 16:07:15 2007 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        parameter (clcutx=7.)     !cluster seed cut
13        parameter (clcuty=6.)        parameter (clcuty=6.)
14        parameter (incutx=4.)     !cut to include strips in cluster definition        parameter (incutx=4.)     !cut to include strips in cluster definition
# Line 102  c--------------------------------------- Line 104  c---------------------------------------
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)        real fcorr(nviews,nladders_view,nangmax)
107    *     limit of application of pfa
108          real e2fax,e2tax,e3fax,e3tax,e4fax,e4tax
109          real e2fay,e2tay,e3fay,e3tay,e4fay,e4tay
110                
111    
112  c$$$      common/angbinning/nangbin,angL,angR  c$$$      common/angbinning/nangbin,angL,angR
# Line 113  c$$$      save/pfa/ Line 117  c$$$      save/pfa/
117        common/pfa/nangbin,angL,angR        common/pfa/nangbin,angL,angR
118       $     ,netaval,eta2,feta2,eta3,feta3,eta4,feta4       $     ,netaval,eta2,feta2,eta3,feta3,eta4,feta4
119       $     ,fcorr       $     ,fcorr
120         $     ,e2fax,e2tax,e3fax,e3tax,e4fax,e4tax
121         $     ,e2fay,e2tay,e3fay,e3tay,e4fay,e4tay
122        save/pfa/        save/pfa/
123    
124  *     limit of application of pfa  c$$$*     limit of application of pfa
125        parameter (e2fax=0.)  c$$$      parameter (e2fax=0.)
126        parameter (e2tax=10.)  c$$$      parameter (e2tax=10.)
127        parameter (e3fax=10.)  c$$$      parameter (e3fax=10.)
128        parameter (e3tax=15.)  c$$$      parameter (e3tax=15.)
129        parameter (e4fax=90.)  c$$$      parameter (e4fax=90.)
130        parameter (e4tax=90.)  c$$$      parameter (e4tax=90.)
131    c$$$
132        parameter (e2fay=0.)  c$$$      parameter (e2fay=0.)
133        parameter (e2tay=20.)  c$$$      parameter (e2tay=20.)
134        parameter (e3fay=90.)  c$$$      parameter (e3fay=90.)
135        parameter (e3tay=90.)  c$$$      parameter (e3tay=90.)
136        parameter (e4fay=90.)  c$$$      parameter (e4fay=90.)
137        parameter (e4tay=90.)  c$$$      parameter (e4tay=90.)
138    
139  c------------------------------------------------------------------------  c------------------------------------------------------------------------
140  c      c    
Legend:
Removed from v.1.10  
changed lines
  Added in v.1.12
  ViewVC Help
Powered by ViewVC 1.1.23