anchor.diff:   10   continue
   c     impossible d'arriver ici sans bogue!
         write(imprim,*) 'pause dans te2t2t 1'
  -      pause
   c
   c     l'arete de sommets 2 et 3
    15   if( n1 .lt. 3 ) then
  
positive.code: c              point utilisateur ou frontalier non supprimable
                 ierr = 11
                 write(imprim,*) 'pause dans tefoar 1', d, d3, d4, d12
                 pause
                 return
              endif
  c
  
negative.code: c              anomalie. chainage des triangles des aretes defectueux
  c              a corriger
                 write(imprim,*) 'pause dans tridcf'
                 ierr = 5
                 return
              endif
  