anchor.diff:        write(imprim,*) 'les lignes fermees doivent etre disjointes'
         write(imprim,*) 'verifiez si elles ne se coupent pas'
         ierr = 13
  -      pause
         return
   c
   c     cas sans probleme : intersection differente de celle initiale
  
positive.code:  20   continue
  c     impossible d'arriver ici sans bogue!
        write(imprim,*) 'pause dans te2t2t 2'
        pause
  c
  c     l'arete de sommets 1 et 4
   25   if( n1 .lt. 3 ) then
  
negative.code:      %      ' st2=',nosoar(2,noar),' ligne=',nosoar(3,noar),
       %      ' tr1=',nosoar(4,noar),' tr2=',nosoar(5,noar)
              write(imprim,*) 'chainages=',(nosoar(i,noar),i=6,mosoar)
  c           l'arete n'est pas detruite
              return
  c
  