--- DarthVader/TrackerLevel2/src/F77/functionspfa.f	2009/08/04 14:01:37	1.25
+++ DarthVader/TrackerLevel2/src/F77/functionspfa.f	2009/08/11 12:58:25	1.26
@@ -1006,8 +1006,8 @@
 c     ==============================================================
          if(ncog.eq.1)then
             COG = 0.
-	    if(sr1.gt.sc)cog=1.
-	    if(sl1.gt.sc.and.sl1.gt.sr1)cog=-1.
+         if(sr1.gt.sc)cog=1.
+         if(sl1.gt.sc.and.sl1.gt.sr1)cog=-1.
 c     ==============================================================
          elseif(ncog.eq.2)then
             COG = 0.
@@ -1015,12 +1015,12 @@
                if((sl1+sc).ne.0)COG = -sl1/(sl1+sc)        
             elseif(sl1.lt.sr1)then
                if((sc+sr1).ne.0)COG = sr1/(sc+sr1)
-	    elseif( sl1.eq.sr1.and.sl1.ne.-9999.)then
+         elseif( sl1.eq.sr1.and.sl1.ne.-9999.)then
                if( clsigma(indmax(ic)-1).lt.clsigma(indmax(ic)+1)
      $              .and.(sl1+sc).ne.0 )cog = -sl1/(sl1+sc) 
                if( clsigma(indmax(ic)-1).gt.clsigma(indmax(ic)+1)
      $              .and.(sc+sr1).ne.0 )cog = sr1/(sc+sr1) 
-	    endif 
+         endif 
 c            if(cog==0)print*,'Strange cluster (2) - @maxs ',MAXS(ic)
 c     $           ,' : ',sl2,sl1,sc,sr1,sr2
 c     ==============================================================