--- DarthVader/TrackerLevel2/inc/F77/calib.f 2006/11/23 18:51:44 1.4 +++ DarthVader/TrackerLevel2/inc/F77/calib.f 2007/02/16 14:56:01 1.6 @@ -78,7 +78,7 @@ integer nangbin real angL(nangmax),angR(nangmax) !Left and Right bin limits - parameter (netavalmax=150) !eta2 points + parameter (netavalmax=500) !eta2 points integer netaval real eta2(netavalmax,nangmax) real feta2(netavalmax,nviews,nladders_view,nangmax) @@ -87,9 +87,12 @@ real eta4(netavalmax,nangmax) real feta4(netavalmax,nviews,nladders_view,nangmax) - common/angbinning/nangbin,angL,angR - save/angbinning/ - common/pfa/netaval,eta2,feta2,eta3,feta3,eta4,feta4 +c$$$ common/angbinning/nangbin,angL,angR +c$$$ save/angbinning/ +c$$$ common/pfa/netaval,eta2,feta2,eta3,feta3,eta4,feta4 +c$$$ save/pfa/ + common/pfa/nangbin,angL,angR + $ ,netaval,eta2,feta2,eta3,feta3,eta4,feta4 save/pfa/ c------------------------------------------------------------------------ c