src/tool/Utilitaire/utvpyr.F

   1       subroutine utvpyr ( lapyra, volume,
   2      >                    coonoe, somare, aretri,
   3      >                    facpyr, cofapy, arepyr )
   4 c ______________________________________________________________________
   5 c
   6 c                             H O M A R D
   7 c
   8 c Outil de Maillage Adaptatif par Raffinement et Deraffinement d'EDF R&D
   9 c
  10 c Version originale enregistree le 18 juin 1996 sous le numero 96036
  11 c aupres des huissiers de justice Simart et Lavoir a Clamart
  12 c Version 11.2 enregistree le 13 fevrier 2015 sous le numero 2015/014
  13 c aupres des huissiers de justice
  14 c Lavoir, Silinski & Cherqui-Abrahmi a Clamart
  15 c
  16 c    HOMARD est une marque deposee d'Electricite de France
  17 c
  18 c Copyright EDF 1996
  19 c Copyright EDF 1998
  20 c Copyright EDF 2002
  21 c Copyright EDF 2020
  22 c ______________________________________________________________________
  23 c
  24 c     UTilitaire : Volume d'une PYRamide
  25 c     --           -            ---
  26 c ______________________________________________________________________
  27 c
  28 c     . Jacobien normalise
  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 . volume .  s  .  1     . volume                                     .
  35 c . coonoe . e   . nbnoto . coordonnees des noeuds                     .
  36 c .        .     . * sdim .                                            .
  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 faces des pyramides              .
  41 c . arepyr . e   .nbpyca*8. numeros des 8 aretes des pyramides         .
  42 c ______________________________________________________________________
  43 c
  44 c====
  45 c 0. declarations et dimensionnement
  46 c====
  47 c
  48 c 0.1. ==> generalites
  49 c
  50       implicit none
  51       save
  52 c
  53 c 0.2. ==> communs
  54 c
  55 #include "nombno.h"
  56 #include "nombar.h"
  57 #include "nombtr.h"
  58 #include "nombpy.h"
  59 c
  60 c 0.3. ==> arguments
  61 c
  62       double precision volume
  63       double precision coonoe(nbnoto,3)
  64 c
  65       integer lapyra
  66       integer somare(2,nbarto)
  67       integer aretri(nbtrto,3)
  68       integer facpyr(nbpycf,5), cofapy(nbpycf,5), arepyr(nbpyca,8)
  69 c
  70 c 0.4. ==> variables locales
  71 c
  72       integer listar(8), listso(5)
  73 c
  74 c 0.5. ==> initialisations
  75 c ______________________________________________________________________
  76 c
  77 c====
  78 c 1. les aretes et les sommets
  79 c====
  80 c
  81       call utaspy ( lapyra,
  82      >              nbtrto, nbpycf, nbpyca,
  83      >              somare, aretri,
  84      >              facpyr, cofapy, arepyr,
  85      >              listar, listso )
  86 c
  87 c====
  88 c 2. volume
  89 c====
  90 c
  91       call utvopy ( coonoe, listso, volume )
  92 c
  93       end