--- DarthVader/TrackerLevel2/inc/F77/calib.f	2007/04/27 10:39:57	1.7
+++ DarthVader/TrackerLevel2/inc/F77/calib.f	2007/08/20 16:07:15	1.10
@@ -7,6 +7,28 @@
 *     
 *************************************************************************
 
+      parameter (clcutx=7.)     !cluster seed cut 
+      parameter (clcuty=6.)
+      parameter (incutx=4.)     !cut to include strips in cluster definition
+      parameter (incuty=4.)
+
+c------------------------------------------------------------------------
+c     
+c     some parameters to configure data reduction
+c     
+c------------------------------------------------------------------------
+c$$$      real clcutx               !cluster seed cut 
+c$$$      real clcuty
+c$$$      real incutx               !cut to include strips in cluster definition
+c$$$      real incuty
+      integer pfaid             !if of PFA 
+      common/sw/
+     $     pfaid
+c$$$     $     ,clcutx,clcuty
+c$$$     $     ,incutx,incuty
+
+      save/sw/
+
 c------------------------------------------------------------------------
 c     
 c     pedestal, sigma and badstrip variables
@@ -28,10 +50,6 @@
       save/pedsigbad/
 
 
-      parameter (clcutx=7.)     !cluster seed cut 
-      parameter (clcuty=6.)
-      parameter (incutx=4.)     !cut to include strips in cluster definition
-      parameter (incuty=4.)
 
 c------------------------------------------------------------------------
 c     
@@ -71,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
@@ -86,6 +101,9 @@
       real feta3(netavalmax,nviews,nladders_view,nangmax)
       real eta4(netavalmax,nangmax)
       real feta4(netavalmax,nviews,nladders_view,nangmax)
+      real fcorr(nviews,nladders_view,nangmax)
+
+      
 
 c$$$      common/angbinning/nangbin,angL,angR
 c$$$      save/angbinning/
@@ -94,6 +112,7 @@
     
       common/pfa/nangbin,angL,angR
      $     ,netaval,eta2,feta2,eta3,feta3,eta4,feta4
+     $     ,fcorr
       save/pfa/
 
 *     limit of application of pfa