--- DarthVader/TrackerLevel2/inc/F77/calib.f	2006/11/23 18:51:44	1.4
+++ DarthVader/TrackerLevel2/inc/F77/calib.f	2007/04/27 10:39:57	1.7
@@ -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,10 +87,30 @@
       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/
+
+*     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------------------------------------------------------------------------
 c     
 c     CHARGE CORRELATION