anchor.diff:           eta(pasx+1,j)=eta(2,j)      
         end do
   
  -      if(fin.EQ.0) goto 120  
  +      end do  
          
         write(*,*)'    no it. =',compt
         kmoy=kmoy+compt
  
positive.code:             endif
           end do
  
           j=1,pasy
              eta(1,j)=eta(pasx,j)
              eta(pasx+1,j)=eta(2,j)   
           end do
  
negative.code:       compt=0
  
        
        do while (fin.eq.0)
           compt=compt+1
        fin=1
  C                 - Deux passages alternes -
        do startj=1,2
  