src/tool/Utilitaire/utaspy.F

   1       subroutine utaspy ( lapyra,
   2      >                    nbtrto, nbpycf, nbpyca,
   3      >                    somare, aretri,
   4      >                    facpyr, cofapy, arepyr,
   5      >                    listar, listso )
   6
   7 c ______________________________________________________________________
   8 c
   9 c                             H O M A R D
  10 c
  11 c Outil de Maillage Adaptatif par Raffinement et Deraffinement d'EDF R&D
  12 c
  13 c Version originale enregistree le 18 juin 1996 sous le numero 96036
  14 c aupres des huissiers de justice Simart et Lavoir a Clamart
  15 c Version 11.2 enregistree le 13 fevrier 2015 sous le numero 2015/014
  16 c aupres des huissiers de justice
  17 c Lavoir, Silinski & Cherqui-Abrahmi a Clamart
  18 c
  19 c    HOMARD est une marque deposee d'Electricite de France
  20 c
  21 c Copyright EDF 1996
  22 c Copyright EDF 1998
  23 c Copyright EDF 2002
  24 c Copyright EDF 2020
  25 c ______________________________________________________________________
  26 c
  27 c     UTilitaire : Aretes et Sommets d'une PYramide
  28 c     --           -         -             --
  29 c ______________________________________________________________________
  30 c .        .     .        .                                            .
  31 c .  nom   . e/s . taille .           description                      .
  32 c .____________________________________________________________________.
  33 c . lapyra . e   .  1     . numero de la pyramide a examiner           .
  34 c . nbtrto . e   .  1     . nombre total de triangles                  .
  35 c . nbpycf . e   .  1     . nombre total de pyramides decrits par faces.
  36 c . nbpyca . e   .  1     . nombre total de pyras decrits par aretes   .
  37 c . somare . e   .2*nbarto. numeros des extremites d'arete             .
  38 c . aretri . e   .nbtrto*3. numeros des 3 aretes des triangles         .
  39 c . facpyr . e   .nbpycf*5. numeros des 5 faces des pyramides          .
  40 c . cofapy . e   .nbpycf*5. codes des 5 faces des pyramides            .
  41 c . arepyr . e   .nbpyca*8. numeros des 8 aretes des pyramides         .
  42 c . listar .  s  .   8    . les 8 aretes de la pyramide                .
  43 c . listso .  s  .   5    . liste des sommets de la pyramide           .
  44 c .____________________________________________________________________.
  45 c
  46 c====
  47 c 0. declarations et dimensionnement
  48 c====
  49 c
  50 c 0.1. ==> generalites
  51 c
  52       implicit none
  53       save
  54 c
  55 c 0.2. ==> communs
  56 c
  57 c 0.3. ==> arguments
  58 c
  59       integer lapyra
  60       integer nbtrto, nbpycf, nbpyca
  61 c
  62       integer somare(2,*)
  63       integer aretri(nbtrto,3)
  64       integer facpyr(nbpycf,5), cofapy(nbpycf,5), arepyr(nbpyca,8)
  65 c
  66       integer listar(8), listso(5)
  67 c
  68 c 0.4. ==> variables locales
  69 c
  70 c
  71       integer iaux
  72 c ______________________________________________________________________
  73 c
  74 c====
  75 c 1. Les aretes de la pyramide
  76 c====
  77 c
  78       if ( lapyra.le.nbpycf ) then
  79 c
  80         call utarpy ( lapyra,
  81      >                nbtrto, nbpycf,
  82      >                aretri, facpyr, cofapy,
  83      >                listar )
  84 c
  85       else
  86 c
  87         do 11 , iaux = 1 , 8
  88           listar(iaux) = arepyr(lapyra-nbpycf,iaux)
  89    11   continue
  90 c
  91       endif
  92 c
  93 c====
  94 c 2. les sommets de la pyramide
  95 c====
  96 c
  97       call utsopy ( somare, listar, listso )
  98 c
  99       end