--- DarthVader/TrackerLevel2/src/F77/functionspfa.f	2007/08/17 16:08:15	1.17
+++ DarthVader/TrackerLevel2/src/F77/functionspfa.f	2007/08/20 16:07:16	1.18
@@ -3,7 +3,7 @@
       subroutine idtoc(ipfa,cpfa)
       
       integer ipfa
-      character*4 cpfa
+      character*10 cpfa
 
       CPFA='COG4'
       if(ipfa.eq.0)CPFA='ETA'
@@ -338,7 +338,7 @@
             goto 98
          endif
       enddo
-      if(DEBUG)
+      if(DEBUG.EQ.1)
      $     print*,'pfaeta2 *** warning *** angle out of range: ',angle
       if(angle.lt.angL(1))iang=1
       if(angle.gt.angR(nangbin))iang=nangbin
@@ -414,7 +414,7 @@
 c$$$         cog2=cog2+1.           !temp
 c$$$      endif
 
-      if(DEBUG)print*,'ETA2  (ic ',ic,' ang',angle,')'
+      if(DEBUG.EQ.1)print*,'ETA2  (ic ',ic,' ang',angle,')'
      $     ,cog2-iadd,' -->',pfaeta2
 
 
@@ -456,7 +456,7 @@
             goto 98
          endif
       enddo
-      if(DEBUG)
+      if(DEBUG.EQ.1)
      $     print*,'pfaeta3 *** warning *** angle out of range: ',angle
       if(angle.lt.angL(1))iang=1
       if(angle.gt.angR(nangbin))iang=nangbin
@@ -531,7 +531,7 @@
 c$$$         cog2=cog2+1.           !temp
 c$$$      endif
 
-      if(DEBUG)print*,'ETA3  (ic ',ic,' ang',angle,')'
+      if(DEBUG.EQ.1)print*,'ETA3  (ic ',ic,' ang',angle,')'
      $     ,cog3-iadd,' -->',pfaeta3
 
  100  return
@@ -572,7 +572,7 @@
             goto 98
          endif
       enddo
-      if(DEBUG)
+      if(DEBUG.EQ.1)
      $     print*,'pfaeta4 *** warning *** angle out of range: ',angle
       if(angle.lt.angL(1))iang=1
       if(angle.gt.angR(nangbin))iang=nangbin
@@ -647,7 +647,7 @@
 c$$$         cog2=cog2+1.           !temp
 c$$$      endif
 
-      if(DEBUG)print*,'ETA4  (ic ',ic,' ang',angle,')'
+      if(DEBUG.EQ.1)print*,'ETA4  (ic ',ic,' ang',angle,')'
      $     ,cog4-iadd,' -->',pfaeta4
 
  100  return
@@ -1775,7 +1775,7 @@
             goto 98
          endif
       enddo
-      if(DEBUG)
+      if(DEBUG.eq.1)
      $     print*,'pfacorr *** warning *** angle out of range: ',angle
       if(angle.lt.angL(1))iang=1
       if(angle.gt.angR(nangbin))iang=nangbin
@@ -1783,7 +1783,7 @@
 
       pfacorr = fcorr(iview,lad,iang)
 
-      if(DEBUG)print*,'CORR  (ic ',ic,' ang',angle,') -->',pfacorr
+      if(DEBUG.eq.1)print*,'CORR  (ic ',ic,' ang',angle,') -->',pfacorr
 
 
  100  return