--- DarthVader/TrackerLevel2/src/F77/functionspfa.f	2007/08/07 13:56:29	1.14
+++ DarthVader/TrackerLevel2/src/F77/functionspfa.f	2007/08/17 13:28:02	1.15
@@ -210,7 +210,6 @@
             
       endif
 
-cc      print*,'---- ',riseta,iview,angle
 
  100  return
       end
@@ -787,15 +786,13 @@
                if( clsigma(indmax(ic)-1).gt.clsigma(indmax(ic)+1)
      $              .and.(sc+sr1).ne.0 )cog = sr1/(sc+sr1) !NEW
 	    endif 
-c$$$            if(cog==0)print*,'Strange cluster (2) - @maxs ',MAXS(ic)
-c$$$     $           ,VIEW(ic),LADDER(ic)
-c$$$     $           ,' : ',sl2,sl1,sc,sr1,sr2
+c            if(cog==0)print*,'Strange cluster (2) - @maxs ',MAXS(ic)
+c     $           ,' : ',sl2,sl1,sc,sr1,sr2
 c     ==============================================================
          elseif(ncog.eq.3)then
              if( (sl1+sc+sr1).ne.0 )COG = (sr1-sl1)/(sl1+sc+sr1) 
-c$$$             if(cog==0)print*,'Strange cluster (3) - @maxs ',MAXS(ic)
-c$$$     $           ,VIEW(ic),LADDER(ic)
-c$$$     $            ,' : ',sl2,sl1,sc,sr1,sr2
+c             if(cog==0)print*,'Strange cluster (3) - @maxs ',MAXS(ic)
+c     $            ,' : ',sl2,sl1,sc,sr1,sr2
 c     ==============================================================
          elseif(ncog.eq.4)then
             if(sl2.gt.sr2)then
@@ -812,10 +809,6 @@
      $              .and.(sr2+sl1+sc+sr1).ne.0 )
      $              cog = (2*sr2+sr1-sl1)/(sr2+sl1+sc+sr1)  !NEW               
             endif
-c$$$            if(cog==0)print*,'Strange cluster (4) - @maxs ',MAXS(ic)
-c$$$     $           ,VIEW(ic),LADDER(ic)
-c$$$     $           ,' : ',sl2,sl1,sc,sr1,sr2
-c     ==============================================================
          else
             print*,'function COG(NCOG,IC) ==> WARNING!! NCOG=',NCOG
      $           ,' not implemented'