--- DarthVader/TrackerLevel2/inc/F77/calib.f	2007/05/14 11:03:05	1.8
+++ DarthVader/TrackerLevel2/inc/F77/calib.f	2007/08/17 14:36:05	1.9
@@ -102,6 +102,7 @@
       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/
@@ -110,6 +111,7 @@
     
       common/pfa/nangbin,angL,angR
      $     ,netaval,eta2,feta2,eta3,feta3,eta4,feta4
+     $     ,fcorr
       save/pfa/
 
 *     limit of application of pfa