src/tool/Utilitaire/utb314.h

   1 c
   2 c 2.3.1. ==> filtrage initial
   3 c
   4             logaux(7) = .false.
   5 c
   6             vn(1) = coonoe(lenoeu,1)
   7             if ( vn(1).gt.xmin .and. vn(1).lt.xmax ) then
   8               vn(2) = coonoe(lenoeu,2)
   9               if ( vn(2).gt.ymin .and. vn(2).lt.ymax ) then
  10                 vn(3) = coonoe(lenoeu,3)
  11                 if ( vn(3).gt.zmin .and. vn(3).lt.zmax ) then
  12                   logaux(7) = .true.
  13                   do 232 , iaux = 1 , nbsomm
  14                     if ( lenoeu.eq.sommet(iaux) ) then
  15                       logaux(7) = .false.
  16                     endif
  17   232             continue
  18                 endif
  19               endif
  20             endif