src/tool/Utilitaire/utb308.h

   1 c
   2 c 2.2.1. ==> Elimination des situations ou il est inutile
   3 c           de controler car l'arete a deja ete ramenee
   4 c
   5             larete = arefro(nuarfr)
   6 c
   7             if ( larete.le.0 ) then
   8               goto 22
   9             endif
  10 c
  11 c 2.2.2. ==> Reperage des situations a examiner :
  12 c          . le noeud milieu de l'arete decoupee ou
  13 c          . les noeuds P2 courbes
  14 c
  15             if ( codret.eq.0 ) then
  16 c
  17             if ( typsfr.le.2 ) then
  18               nbexam = 1
  19               examar(1) = larete
  20               examno(1) = somare(2,filare(examar(1)))
  21             else
  22               nbexam = 2
  23               examar(1) = filare(larete)
  24               examno(1) = np2are(examar(1))
  25               examar(2) = examar(1) + 1
  26               examno(2) = np2are(examar(2))
  27             endif
  28 c
  29             endif