src/tool/Utilitaire/utnbmc.F

   1       subroutine utnbmc ( nombre,
   2      >                    nbmaae, nbmafe, nbmnei,
   3      >                    numano, numael,
   4      >                    nbma2d, nbma3d,
   5      >                    nbmapo, nbsegm, nbtria, nbtetr,
   6      >                    nbquad, nbhexa, nbpent, nbpyra,
   7      >                    nbfmed, nbfmen, ngrouc,
   8      >                    nbequi,
   9      >                    nbeqno, nbeqmp, nbeqar, nbeqtr, nbeqqu,
  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 de Calcul
  32 c    --           -- -            -           -
  33 c ______________________________________________________________________
  34 c
  35 c C'est le contenu du common nbutil
  36 c ______________________________________________________________________
  37 c .        .     .        .                                            .
  38 c .  nom   . e/s . taille .           description                      .
  39 c .____________________________________________________________________.
  40 c . nombre .  e  .   36   . le tableau des nombres                     .
  41 c . nbmaae .   s .    1   . nombre maximum d'aretes par element        .
  42 c . nbmafe .   s .    1   . nombre maximum de faces par element        .
  43 c . nbmnei .   s .    1   . nombre max. de noeuds des elements ignores .
  44 c . numano .   s .    1   . numero maximum de noeud dans le maillage   .
  45 c . numael .   s .    1   . numero maximum d'element dans le maillage  .
  46 c . nbma2d .   s .    1   . nombre total de mailles 2D                 .
  47 c . nbma3d .   s .    1   . nombre total de mailles 3D                 .
  48 c . nbmapo .   s .    1   . nombre de mailles-points dans le maillage  .
  49 c . nbsegm .   s .    1   . nombre de segments dans le maillage        .
  50 c . nbtria .   s .    1   . nombre de triangles dans le maillage       .
  51 c . nbtetr .   s .    1   . nombre de tetraedres dans le maillage      .
  52 c . nbquad .   s .    1   . nombre de quadrangles dans le maillage     .
  53 c . nbhexa .   s .    1   . nombre d'hexaedres dans le maillage        .
  54 c . nbpent .   s .    1   . nombre de pentaedres dans le maillage      .
  55 c . nbpyra .   s .    1   . nombre de pyramides dans le maillage       .
  56 c . nbfmed .   s .    1   . nombre total de familles MED               .
  57 c . nbfmen .   s .    1   . nombre de familles MED pour les noeuds     .
  58 c . ngrouc .   s .    1   . nombre de groupes cumules dans les familles.
  59 c . nbequi .   s .    1   . nombre total d'equivalences                .
  60 c . nbeqno .   s .    1   . nombre total de paires equiv. de noeuds    .
  61 c . nbeqmp .   s .    1   . nombre total de paires equiv. de m-points.
  62 c . nbeqar .   s .    1   . nombre total de paires equiv. d'aretes     .
  63 c . nbeqtr .   s .    1   . nombre total de paires equiv. de triangles .
  64 c . nbeqqu .   s .    1   . nombre total de paires equiv. de quad.     .
  65 c . ulsort . e   .   1    . numero d'unite logique de la liste standard.
  66 c . langue . e   .    1   . langue des messages                        .
  67 c .        .     .        . 1 : francais, 2 : anglais                  .
  68 c . codret . es  .    1   . code de retour des modules                 .
  69 c .        .     .        . 0 : pas de probleme                        .
  70 c .        .     .        . autre : probleme                           .
  71 c ______________________________________________________________________
  72 c
  73 c====
  74 c 0. declarations et dimensionnement
  75 c====
  76 c
  77 c 0.1. ==> generalites
  78 c
  79       implicit none
  80       save
  81 c
  82       character*6 nompro
  83       parameter ( nompro = 'UTNBMC' )
  84 c
  85 #include "nblang.h"
  86 c
  87 c 0.2. ==> communs
  88 c
  89 #include "envex1.h"
  90 c
  91 c 0.3. ==> arguments
  92 c
  93       integer nombre(*)
  94 c
  95       integer nbmaae, nbmafe, nbmnei
  96       integer numano, numael
  97       integer nbma2d, nbma3d
  98       integer nbmapo, nbsegm, nbtria, nbtetr,
  99      >        nbquad, nbhexa, nbpent, nbpyra
 100       integer nbfmed, nbfmen, ngrouc
 101       integer nbequi, nbeqno, nbeqmp, nbeqar, nbeqtr, nbeqqu
 102 c
 103       integer ulsort, langue, codret
 104 c
 105 c 0.4. ==> variables locales
 106 c
 107       integer iaux
 108 c
 109       integer nbmess
 110       parameter ( nbmess = 10 )
 111       character*80 texte(nblang,nbmess)
 112 c
 113 c 0.5. ==> initialisations
 114 c ______________________________________________________________________
 115 c
 116 c====
 117 c 1. messages
 118 c====
 119 c
 120 #include "impr01.h"
 121 c
 122 #ifdef _DEBUG_HOMARD_
 123       write (ulsort,texte(langue,1)) 'Entree', nompro
 124       call dmflsh (iaux)
 125 #endif
 126 c
 127 #include "impr03.h"
 128 c
 129 c====
 130 c 2. valeurs
 131 c====
 132 c
 133       nbmaae = nombre( 1)
 134       nbmafe = nombre( 2)
 135       nbmnei = nombre( 3)
 136       numano = nombre( 4)
 137       numael = nombre( 5)
 138       nbma2d = nombre( 6)
 139       nbma3d = nombre( 7)
 140       nbmapo = nombre(12)
 141       nbsegm = nombre(13)
 142       nbtria = nombre(14)
 143       nbtetr = nombre(15)
 144       nbquad = nombre(17)
 145       nbhexa = nombre(18)
 146       nbpent = nombre(19)
 147       nbpyra = nombre(20)
 148       nbfmed = nombre(22)
 149       nbfmen = nombre(23)
 150       ngrouc = nombre(24)
 151       nbequi = nombre(31)
 152       nbeqno = nombre(32)
 153       nbeqmp = nombre(33)
 154       nbeqar = nombre(34)
 155       nbeqtr = nombre(35)
 156       nbeqqu = nombre(36)
 157 c
 158 c====
 159 c 3. la fin
 160 c====
 161 c
 162       if ( codret.ne.0 ) then
 163 c
 164 #include "envex2.h"
 165 c
 166       write (ulsort,texte(langue,1)) 'Sortie', nompro
 167       write (ulsort,texte(langue,2)) codret
 168 c
 169       endif
 170 c
 171 #ifdef _DEBUG_HOMARD_
 172       write (ulsort,texte(langue,1)) 'Sortie', nompro
 173       call dmflsh (iaux)
 174 #endif
 175 c
 176       end