--- DarthVader/TrackerLevel2/src/F77/functionspfa.f	2008/03/22 08:32:50	1.24
+++ DarthVader/TrackerLevel2/src/F77/functionspfa.f	2009/08/04 14:01:37	1.25
@@ -460,7 +460,8 @@
             
       endif
       
- 100  return
+c 100  return
+      return
       end
 
 *** * * * *** * * * *** * * * *** * * * *** * * * *** * * * ***
@@ -507,7 +508,8 @@
             
       endif
       
- 100  return
+c 100  return
+      return
       end
 *** * * * *** * * * *** * * * *** * * * *** * * * *** * * * ***
 c      real function riseta(ic,angle)
@@ -557,7 +559,8 @@
       endif
 
 
- 100  return
+c 100  return
+      return
       end
 
 *** * * * *** * * * *** * * * *** * * * *** * * * *** * * * ***
@@ -718,7 +721,8 @@
      $     ,cog2-iadd,' -->',pfaeta2
 
 
- 100  return
+c 100  return
+      return
       end
 
 *** * * * *** * * * *** * * * *** * * * *** * * * *** * * * ***
@@ -821,7 +825,8 @@
       if(DEBUG.EQ.1)print*,'ETA3  (ic ',ic,' ang',angle,')'
      $     ,cog3-iadd,' -->',pfaeta3
 
- 100  return
+c 100  return
+      return
       end
 
 *** * * * *** * * * *** * * * *** * * * *** * * * *** * * * ***
@@ -930,7 +935,8 @@
       if(DEBUG.EQ.1)print*,'ETA4  (ic ',ic,' ang',angle,')'
      $     ,cog4-iadd,' -->',pfaeta4
 
- 100  return
+c 100  return
+      return
       end
 
 
@@ -1008,7 +1014,7 @@
             if(sl1.gt.sr1)then
                if((sl1+sc).ne.0)COG = -sl1/(sl1+sc)        
             elseif(sl1.lt.sr1)then
-               if((sc+sr1).ne.0)COG = sr1/(sc+sr1)                        
+               if((sc+sr1).ne.0)COG = sr1/(sc+sr1)
 	    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) 
@@ -2211,5 +2217,6 @@
       if(DEBUG.eq.1)print*,'LANDI (ic ',ic,' ang',angle,') -->',pfacorr
 
       
- 100  return
+c 100  return
+      return
       end