anchor.diff:           write(imprim,*)'tefoar:arete ',ns1,' - ',ns2,' a imposer'
            write(imprim,*)'tefoar:anomalie sommet ',ns1,
        %   'non dans le triangle de sommets ',(nosotr(i),i=1,3)
  -         pause
            ierr = 11
            return
         endif
  
positive.code: c
              write(imprim,*) 'tefoar: algorithme defaillant'
              ierr = 11
              pause
              return
           endif
   50   continue
  
negative.code:       write(imprim,*) 'les lignes fermees doivent etre disjointes'
        write(imprim,*) 'verifiez si elles ne se coupent pas'
        ierr = 13
        return
  c
  c     cas sans probleme : intersection differente de celle initiale
  