src/tool/Utilitaire/utb305.h

   1 c
   2 c 2.3.2. ==> le noeud est-il coincident avec un des sommets ?
   3 c
   4             if ( logaux(7) ) then
   5 c
   6               if ( nbpbco(-1).gt.0 ) then
   7 c
   8                 nucoin = numcoi(lenoeu)
   9 c
  10                 if ( nucoin.ne.0 ) then
  11 c
  12                   ptcode = coinpt(nucoin)+1
  13                   ptcofi = coinpt(nucoin+1)
  14                   do 232 , ptcoin = ptcode, ptcofi
  15                     jaux = coinnn(ptcoin)
  16                     do 2321 , iaux = 1 , nbsomm
  17                       if ( jaux.eq.sommet(iaux) ) then
  18                         goto 23
  19                       endif
  20  2321               continue
  21   232             continue
  22 c
  23                 endif
  24 c
  25               endif
  26 c
  27             endif