src/tool/Creation_Maillage/cmchea.F

   1       subroutine cmchea ( arehex, famhex,
   2      >                    hethex, filhex, perhex,
   3      >                    nare01, nare02, nare03, nare04,
   4      >                    nare05, nare06, nare07, nare08,
   5      >                    nare09, nare10, nare11, nare12,
   6      >                    nupere, famill, nuhexa )
   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    Creation du Maillage - Creation d'un HExaedre par ses Aretes
  28 c    -           -          -             --               -
  29 c ______________________________________________________________________
  30 c
  31 c but : creation effective d'un hexaedre etant donne :
  32 c       - le numero de l'hexaedre
  33 c       - les numeros globaux des faces locales 1,2,3,4,5 et 6
  34 c       - les codes des faces
  35 c       - le numero du pere
  36 c ______________________________________________________________________
  37 c .        .     .        .                                            .
  38 c .  nom   . e/s . taille .           description                      .
  39 c .____________________________________________________________________.
  40 c . arehex . es  .nouvha12. numeros des 12 aretes des hexaedres        .
  41 c . famhex . es  . nouvhe . famille des hexaedres                      .
  42 c . hethex . es  . nouvhe . historique de l'etat des hexaedres         .
  43 c . filhex . es  . nouvhe . premier fils des hexaedres                 .
  44 c . perhex . es  . nouvhe . pere des hexaedres                         .
  45 c . narei  . e   . 1      . arete de numero local i dans l'hexaedre    .
  46 c . nupere . e   . 1      . numero du pere du hexaedre                 .
  47 c . famill . e   . 1      . famille a attribuer a l'hexaedre           .
  48 c . nuhexa . e   . 1      . numero du hexaedre a creer                 .
  49 c ______________________________________________________________________
  50 c
  51 c====
  52 c 0. declarations et dimensionnement
  53 c====
  54 c
  55 c 0.1. ==> generalites
  56 c
  57       implicit none
  58       save
  59 c
  60 c 0.2. ==> communs
  61 c
  62 #include "nouvnb.h"
  63 c
  64 c 0.3. ==> arguments
  65 c
  66       integer arehex(nouvha,12), famhex(nouvhe)
  67       integer hethex(nouvhe), filhex(nouvhe), perhex(nouvhe)
  68       integer nare01, nare02, nare03, nare04
  69       integer nare05, nare06, nare07, nare08
  70       integer nare09, nare10, nare11, nare12
  71       integer nupere, famill, nuhexa
  72 c
  73 c 0.4. ==> variables locales
  74 c
  75       integer iaux
  76 c ______________________________________________________________________
  77 c
  78 c====
  79 c 1. creation effective d'un hexaedre
  80 c====
  81 c
  82 cgn        write (*,*) 'nuhexa',nuhexa
  83       iaux = nuhexa - nouvhf
  84       arehex(iaux,1) = nare01
  85       arehex(iaux,2) = nare02
  86       arehex(iaux,3) = nare03
  87       arehex(iaux,4) = nare04
  88       arehex(iaux,5) = nare05
  89       arehex(iaux,6) = nare06
  90       arehex(iaux,7) = nare07
  91       arehex(iaux,8) = nare08
  92       arehex(iaux,9) = nare09
  93       arehex(iaux,10) = nare10
  94       arehex(iaux,11) = nare11
  95       arehex(iaux,12) = nare12
  96 c
  97       famhex(nuhexa) = famill
  98 c
  99       hethex(nuhexa)  = 5000
 100       filhex(nuhexa)  = 0
 101       perhex(nuhexa)  = nupere
 102 c
 103       end