--- DarthVader/TrackerLevel2/inc/F77/calib.f	2007/08/17 14:36:05	1.9
+++ DarthVader/TrackerLevel2/inc/F77/calib.f	2007/08/20 16:07:15	1.10
@@ -27,6 +27,8 @@
 c$$$     $     ,clcutx,clcuty
 c$$$     $     ,incutx,incuty
 
+      save/sw/
+
 c------------------------------------------------------------------------
 c     
 c     pedestal, sigma and badstrip variables
@@ -87,9 +89,6 @@
 c     
 c------------------------------------------------------------------------
 *     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)
       parameter (nangmax=21)    !maximum number of angular bins
       integer nangbin
       real angL(nangmax),angR(nangmax) !Left and Right bin limits
@@ -104,6 +103,8 @@
       real feta4(netavalmax,nviews,nladders_view,nangmax)
       real fcorr(nviews,nladders_view,nangmax)
 
+      
+
 c$$$      common/angbinning/nangbin,angL,angR
 c$$$      save/angbinning/
 c$$$      common/pfa/netaval,eta2,feta2,eta3,feta3,eta4,feta4