src/tool/Utilitaire/utnbmh.F

   1       subroutine utnbmh ( nombre,
   2      >                    nbnois, nbnoei, nbnomp,
   3      >                    nbnop1, nbnop2, nbnoim,
   4      >                    nbeutc, nbevca, nbevto,
   5      >                    nbelem, nbmaae, nbmafe, nbmane,
   6      >                    nbmapo, nbsegm, nbtria, nbtetr,
   7      >                    nbquad, nbhexa, nbpent, nbpyra,
   8      >                    numano, numael,
   9      >                    nvoare, nvosom,
  10      >                    ulsort, langue, codret )
  11 c ______________________________________________________________________
  12 c
  13 c                             H O M A R D
  14 c
  15 c Outil de Maillage Adaptatif par Raffinement et Deraffinement d'EDF R&D
  16 c
  17 c Version originale enregistree le 18 juin 1996 sous le numero 96036
  18 c aupres des huissiers de justice Simart et Lavoir a Clamart
  19 c Version 11.2 enregistree le 13 fevrier 2015 sous le numero 2015/014
  20 c aupres des huissiers de justice
  21 c Lavoir, Silinski & Cherqui-Abrahmi a Clamart
  22 c
  23 c    HOMARD est une marque deposee d'Electricite de France
  24 c
  25 c Copyright EDF 1996
  26 c Copyright EDF 1998
  27 c Copyright EDF 2002
  28 c Copyright EDF 2020
  29 c ______________________________________________________________________
  30 c
  31 c    UTilitaire - NomBres pour le Maillage HOMARD
  32 c    --           -- -            -        -
  33 c ______________________________________________________________________
  34 c .        .     .        .                                            .
  35 c .  nom   . e/s . taille .           description                      .
  36 c .____________________________________________________________________.
  37 c . nombre .  e  .   25   . le tableau des nombres                     .
  38 c . nbnois .   s .    1   . nombre de noeuds isoles                    .
  39 c . nbnomp .   s .    1   . nombre de noeuds support de mailles-points .
  40 c . nbnop1 .   s .    1   . nombre de noeuds p1                        .
  41 c . nbnop2 .   s .    1   . nombre de noeuds p2                        .
  42 c . nbnoim .   s .    1   . nombre de noeuds internes aux mailles      .
  43 c . nbeutc .   s .    1   . nombre d'elements utiles au calcul         .
  44 c . nbevca .   s .    1   . nombre d'elements de volumes dans le calcul.
  45 c . nbevto .   s .    1   . nombre d'elements de volumes total         .
  46 c . nbelem .   s .    1   . nombre d'elements dans le calcul           .
  47 c . nbmaae .   s .    1   . nombre maximum d'aretes par element        .
  48 c . nbmafe .   s .    1   . nombre maximum de faces par element        .
  49 c . nbmane .   s .    1   . nombre maximum de noeuds par element       .
  50 c . nbmapo .   s .    1   . nombre de mailles-points dans le maillage  .
  51 c . nbsegm .   s .    1   . nombre de segments dans le maillage        .
  52 c . nbtria .   s .    1   . nombre de triangles dans le maillage       .
  53 c . nbtetr .   s .    1   . nombre de tetraedres dans le maillage      .
  54 c . nbquad .   s .    1   . nombre de quadrangles dans le maillage     .
  55 c . nbhexa .   s .    1   . nombre d'hexaedres dans le maillage        .
  56 c . nbpent .   s .    1   . nombre de pentaedres dans le maillage      .
  57 c . nbpyra .   s .    1   . nombre de pyramides dans le maillage       .
  58 c . numano .   s .    1   . numero maximum de noeud dans le maillage   .
  59 c . numael .   s .    1   . numero maximum d'element dans le maillage  .
  60 c . nvoare .   s .    1   . nombre de voisins par arete                .
  61 c . nvosom .   s .    1   . nombre de voisins par sommet               .
  62 c . ulsort . e   .   1    . numero d'unite logique de la liste standard.
  63 c . langue . e   .    1   . langue des messages                        .
  64 c .        .     .        . 1 : francais, 2 : anglais                  .
  65 c . codret . es  .    1   . code de retour des modules                 .
  66 c .        .     .        . 0 : pas de probleme                        .
  67 c .        .     .        . autre : probleme                           .
  68 c ______________________________________________________________________
  69 c
  70 c====
  71 c 0. declarations et dimensionnement
  72 c====
  73 c
  74 c 0.1. ==> generalites
  75 c
  76       implicit none
  77       save
  78 c
  79       character*6 nompro
  80       parameter ( nompro = 'UTNBMH' )
  81 c
  82 #include "nblang.h"
  83 c
  84 c 0.2. ==> communs
  85 c
  86 #include "envex1.h"
  87 c
  88 c 0.3. ==> arguments
  89 c
  90       integer nombre(*)
  91 c
  92       integer nbnois, nbnoei, nbnomp
  93       integer nbnop1, nbnop2, nbnoim
  94       integer nbeutc, nbevca, nbevto
  95       integer nbelem, nbmaae, nbmafe, nbmane
  96       integer nbmapo, nbsegm, nbtria, nbtetr,
  97      >        nbquad, nbhexa, nbpent, nbpyra
  98       integer numano, numael
  99       integer nvoare, nvosom
 100 c
 101       integer ulsort, langue, codret
 102 c
 103 c 0.4. ==> variables locales
 104 c
 105       integer iaux
 106 c
 107       integer nbmess
 108       parameter ( nbmess = 10 )
 109       character*80 texte(nblang,nbmess)
 110 c
 111 c 0.5. ==> initialisations
 112 c ______________________________________________________________________
 113 c
 114 c====
 115 c 1. messages
 116 c====
 117 c
 118 #include "impr01.h"
 119 c
 120 #ifdef _DEBUG_HOMARD_
 121       write (ulsort,texte(langue,1)) 'Entree', nompro
 122       call dmflsh (iaux)
 123 #endif
 124 c
 125 #include "impr03.h"
 126 c
 127 c====
 128 c 2. valeurs
 129 c====
 130 c
 131       nbnois = nombre( 1)
 132       nbnoei = nombre( 2)
 133       nbnomp = nombre( 3)
 134       nbnop1 = nombre( 4)
 135       nbnop2 = nombre( 5)
 136       nbnoim = nombre( 6)
 137       nbeutc = nombre( 7)
 138       nbevca = nombre( 8)
 139       nbevto = nombre( 9)
 140       nbelem = nombre(10)
 141       nbmaae = nombre(11)
 142       nbmafe = nombre(12)
 143       nbmane = nombre(13)
 144       nbmapo = nombre(14)
 145       nbsegm = nombre(15)
 146       nbtetr = nombre(16)
 147       nbtria = nombre(17)
 148       nbquad = nombre(18)
 149       numael = nombre(19)
 150       numano = nombre(20)
 151       nvoare = nombre(21)
 152       nvosom = nombre(22)
 153       nbhexa = nombre(23)
 154       nbpyra = nombre(24)
 155       nbpent = nombre(25)
 156 c
 157 c====
 158 c 3. la fin
 159 c====
 160 c
 161       if ( codret.ne.0 ) then
 162 c
 163 #include "envex2.h"
 164 c
 165       write (ulsort,texte(langue,1)) 'Sortie', nompro
 166       write (ulsort,texte(langue,2)) codret
 167 c
 168       endif
 169 c
 170 #ifdef _DEBUG_HOMARD_
 171       write (ulsort,texte(langue,1)) 'Sortie', nompro
 172       call dmflsh (iaux)
 173 #endif
 174 c
 175       end