--- DarthVader/TrackerLevel2/inc/F77/calib.f	2007/08/20 16:07:15	1.10
+++ DarthVader/TrackerLevel2/inc/F77/calib.f	2007/08/22 07:03:45	1.11
@@ -102,7 +102,9 @@
       real eta4(netavalmax,nangmax)
       real feta4(netavalmax,nviews,nladders_view,nangmax)
       real fcorr(nviews,nladders_view,nangmax)
-
+*     limit of application of pfa
+      real e2fax,e2tax,e3fax,e3tax,e4fax,e4tax
+      real e2fay,e2tay,e3fay,e3tay,e4fay,e4tay
       
 
 c$$$      common/angbinning/nangbin,angL,angR
@@ -113,22 +115,24 @@
       common/pfa/nangbin,angL,angR
      $     ,netaval,eta2,feta2,eta3,feta3,eta4,feta4
      $     ,fcorr
+     $     ,e2fax,e2tax,e3fax,e3tax,e4fax,e4tax
+     $     ,e2fay,e2tay,e3fay,e3tay,e4fay,e4tay
       save/pfa/
 
-*     limit of application of pfa
-      parameter (e2fax=0.)
-      parameter (e2tax=10.)
-      parameter (e3fax=10.)
-      parameter (e3tax=15.)
-      parameter (e4fax=90.)
-      parameter (e4tax=90.)
-
-      parameter (e2fay=0.)
-      parameter (e2tay=20.)
-      parameter (e3fay=90.)
-      parameter (e3tay=90.)
-      parameter (e4fay=90.)
-      parameter (e4tay=90.)
+c$$$*     limit of application of pfa
+c$$$      parameter (e2fax=0.)
+c$$$      parameter (e2tax=10.)
+c$$$      parameter (e3fax=10.)
+c$$$      parameter (e3tax=15.)
+c$$$      parameter (e4fax=90.)
+c$$$      parameter (e4tax=90.)
+c$$$
+c$$$      parameter (e2fay=0.)
+c$$$      parameter (e2tay=20.)
+c$$$      parameter (e3fay=90.)
+c$$$      parameter (e3tay=90.)
+c$$$      parameter (e4fay=90.)
+c$$$      parameter (e4tay=90.)
 
 c------------------------------------------------------------------------
 c