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: c
  c        erreur: le point np n'est pas dans l'un des nbtr triangles
           write(imprim,10010) np
           pause
           ierr = 3
           return
  c
  
negative.code: c
        else if( nbar .le. 2 ) then
           write(imprim,*) 'erreur trchtd: cf<3 aretes'
           namin  = 0
           namin0 = 0
           return
  