src/tool/Utilitaire/utaspe.F

   1       subroutine utaspe ( lepent,
   2      >                    nbquto, nbpecf, nbpeca,
   3      >                    somare, arequa,
   4      >                    facpen, cofape, arepen,
   5      >                    listar, listso )
   6 c
   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'un PEntaedre
  28 c     --           -         -            --
  29 c ______________________________________________________________________
  30 c .        .     .        .                                            .
  31 c .  nom   . e/s . taille .           description                      .
  32 c .____________________________________________________________________.
  33 c . lepent . e   .  1     . numero du pentaedre a examiner             .
  34 c . nbquto . e   .  1     . nombre total de quadrangles                .
  35 c . nbpecf . e   .  1     . nombre total de pentas decrits par faces   .
  36 c . nbpeca . e   .  1     . nombre total de pentas decrits par aretes  .
  37 c . somare . e   .2*nbarto. numeros des extremites d'arete             .
  38 c . arequa . e   .nbquto*4. numeros des 4 aretes des quadrangles       .
  39 c . facpen . e   .nbpecf*5. numeros des 5 faces des pentaedres         .
  40 c . cofape . e   .nbpecf*5. codes des 5 faces des pentaedres           .
  41 c . arepen . e   .nbpeca*9. code des 9 aretes des pentaedres           .
  42 c . listar .  s  .   9    . les 9 aretes du pentaedre                  .
  43 c . listso .  s  .   6    . liste des sommets du pentaedre             .
  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 lepent
  60       integer nbquto, nbpecf, nbpeca
  61 c
  62       integer somare(2,*)
  63       integer arequa(nbquto,4)
  64       integer facpen(nbpecf,5), cofape(nbpecf,5), arepen(nbpeca,9)
  65 c
  66       integer listar(9), listso(6)
  67 c
  68 c 0.4. ==> variables locales
  69 c
  70       integer iaux
  71 c ______________________________________________________________________
  72 c
  73 c====
  74 c 1. Les aretes du pentaedre
  75 c====
  76 c
  77       if ( lepent.le.nbpecf ) then
  78 c
  79         call utarpe ( lepent,
  80      >                nbquto, nbpecf,
  81      >                arequa, facpen, cofape,
  82      >                listar )
  83 c
  84       else
  85 c
  86         do 11 , iaux = 1 , 9
  87           listar(iaux) = arepen(lepent-nbpecf,iaux)
  88    11   continue
  89 c
  90       endif
  91 c
  92 c====
  93 c 2. les sommets du pentaedre
  94 c====
  95 c
  96       call utsope ( somare, listar, listso )
  97 c
  98       end