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