anchor.diff:        compt=0
   
         
  -
  -120   compt=compt+1
  +      do while (fin.eq.0)
  +         compt=compt+1
         fin=1
   C                 - Deux passages alternes -
         do startj=1,2
  
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:          eta(pasx+1,j)=eta(2,j)      
        end do
  
        end do  
         
        write(*,*)'    no it. =',compt
        kmoy=kmoy+compt
  