/[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.6 by pam-fi, Fri Feb 16 14:56:01 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 87  c--------------------------------------- Line 87  c---------------------------------------
87        real eta4(netavalmax,nangmax)        real eta4(netavalmax,nangmax)
88        real feta4(netavalmax,nviews,nladders_view,nangmax)        real feta4(netavalmax,nviews,nladders_view,nangmax)
89    
90        common/angbinning/nangbin,angL,angR  c$$$      common/angbinning/nangbin,angL,angR
91        save/angbinning/  c$$$      save/angbinning/
92        common/pfa/netaval,eta2,feta2,eta3,feta3,eta4,feta4  c$$$      common/pfa/netaval,eta2,feta2,eta3,feta3,eta4,feta4
93    c$$$      save/pfa/
94          common/pfa/nangbin,angL,angR
95         $     ,netaval,eta2,feta2,eta3,feta3,eta4,feta4
96        save/pfa/        save/pfa/
97  c------------------------------------------------------------------------  c------------------------------------------------------------------------
98  c      c    
Legend:
Removed from v.1.4  
changed lines
  Added in v.1.6
  ViewVC Help
Powered by ViewVC 1.1.23