--- DarthVader/TrackerLevel2/src/F77/functionspfa.f	2007/08/20 16:07:16	1.18
+++ DarthVader/TrackerLevel2/src/F77/functionspfa.f	2007/08/21 15:21:22	1.19
@@ -139,6 +139,7 @@
       
          if( abs(angle).ge.e2fay.and.abs(angle).le.e2tay )then
             pfaeta = pfaeta2(ic,angle)
+cc            print*,pfaeta2(ic,angle)
          elseif( abs(angle).ge.e3fay.and.abs(angle).le.e3tay )then
             pfaeta = pfaeta3(ic,angle)
          elseif( abs(angle).ge.e4fay.and.abs(angle).le.e4tay )then
@@ -178,30 +179,32 @@
       include 'level1.f'
       include 'calib.f'
       
-      pfaeta = 0
+      pfaetal = 0
 
       if(mod(int(VIEW(ic)),2).eq.1)then !Y-view
       
          if( abs(angle).ge.e2fay.and.abs(angle).le.e2tay )then
-            pfaeta = pfaeta2(ic,angle)+pfacorr(ic,angle)
+            pfaetal = pfaeta2(ic,angle)+pfacorr(ic,angle)
+cc            print*,VIEW(ic),angle,pfaeta2(ic,angle),pfacorr(ic,angle)
          elseif( abs(angle).ge.e3fay.and.abs(angle).le.e3tay )then
-            pfaeta = pfaeta3(ic,angle)+pfacorr(ic,angle)
+            pfaetal = pfaeta3(ic,angle)+pfacorr(ic,angle)
          elseif( abs(angle).ge.e4fay.and.abs(angle).le.e4tay )then
-            pfaeta = pfaeta4(ic,angle)+pfacorr(ic,angle)
+            pfaetal = pfaeta4(ic,angle)+pfacorr(ic,angle)
          else
-            pfaeta = cog(4,ic)
+            pfaetal = cog(4,ic)
          endif            
 
       else                      !X-view
 
          if( abs(angle).ge.e2fax.and.abs(angle).le.e2tax )then
-            pfaeta = pfaeta2(ic,angle)+pfacorr(ic,angle)
+            pfaetal = pfaeta2(ic,angle)+pfacorr(ic,angle)
+cc            print*,VIEW(ic),angle,pfaeta2(ic,angle),pfacorr(ic,angle)
          elseif( abs(angle).ge.e3fax.and.abs(angle).le.e3tax )then
-            pfaeta = pfaeta3(ic,angle)+pfacorr(ic,angle)
+            pfaetal = pfaeta3(ic,angle)+pfacorr(ic,angle)
          elseif( abs(angle).ge.e4fax.and.abs(angle).le.e4tax )then
-            pfaeta = pfaeta4(ic,angle)+pfacorr(ic,angle)
+            pfaetal = pfaeta4(ic,angle)+pfacorr(ic,angle)
          else
-            pfaeta = cog(4,ic)
+            pfaetal = cog(4,ic)
          endif            
             
       endif
@@ -1753,7 +1756,7 @@
 
 
 *** * * * *** * * * *** * * * *** * * * *** * * * *** * * * ***
-      real function pfacorr(ic,angle) !(1)
+      real function pfacorr(ic,angle) 
 *--------------------------------------------------------------
 *     this function returns the landi correction for this cluster
 *--------------------------------------------------------------