src/tool/Utilitaire/utinca.F

   1       subroutine utinca
   2 c ______________________________________________________________________
   3 c
   4 c                             H O M A R D
   5 c
   6 c Outil de Maillage Adaptatif par Raffinement et Deraffinement d'EDF R&D
   7 c
   8 c Version originale enregistree le 18 juin 1996 sous le numero 96036
   9 c aupres des huissiers de justice Simart et Lavoir a Clamart
  10 c Version 11.2 enregistree le 13 fevrier 2015 sous le numero 2015/014
  11 c aupres des huissiers de justice
  12 c Lavoir, Silinski & Cherqui-Abrahmi a Clamart
  13 c
  14 c    HOMARD est une marque deposee d'Electricite de France
  15 c
  16 c Copyright EDF 1996
  17 c Copyright EDF 1998
  18 c Copyright EDF 2002
  19 c Copyright EDF 2020
  20 c ______________________________________________________________________
  21 c
  22 c    UTilitaire - INitialisation des Constantes de l'Adaptation
  23 c    --           --                 -               -
  24 c ______________________________________________________________________
  25 c .        .     .        .                                            .
  26 c .  nom   . e/s . taille .           description                      .
  27 c ______________________________________________________________________
  28 c
  29 c====
  30 c 0. declarations et dimensionnement
  31 c====
  32 c
  33 c 0.1. ==> generalites
  34 c
  35       implicit none
  36       save
  37 c
  38 c 0.2. ==> communs
  39 c
  40 #include "permut.h"
  41 #include "cofhex.h"
  42 #include "cofpen.h"
  43 c
  44 c 0.3. ==> arguments
  45 c
  46 c 0.4. ==> variables locales
  47 c
  48 c====
  49 c 1. permutations des codes des faces dans les tetraedres
  50 c====
  51 c
  52       perm1(1) = 4
  53       perm1(2) = 5
  54       perm1(3) = 6
  55       perm1(4) = 1
  56       perm1(5) = 2
  57       perm1(6) = 3
  58 c
  59       perm2(1) = 5
  60       perm2(2) = 6
  61       perm2(3) = 4
  62       perm2(4) = 3
  63       perm2(5) = 1
  64       perm2(6) = 2
  65 c
  66       perm3(1) = 6
  67       perm3(2) = 4
  68       perm3(3) = 5
  69       perm3(4) = 2
  70       perm3(5) = 3
  71       perm3(6) = 1
  72 c
  73 c===
  74 c 2. codes des faces creees dans le raffinement standard d'un hexaedre
  75 c    suivant le code de la mere
  76 c===
  77 c
  78       cofh18(1)=1
  79       cofh18(2)=1
  80       cofh18(3)=1
  81       cofh18(4)=1
  82       cofh18(5)=8
  83       cofh18(6)=8
  84       cofh18(7)=8
  85       cofh18(8)=8
  86
  87       cofh25(1)=2
  88       cofh25(2)=2
  89       cofh25(3)=2
  90       cofh25(4)=2
  91       cofh25(5)=5
  92       cofh25(6)=5
  93       cofh25(7)=5
  94       cofh25(8)=5
  95
  96       cofh36(1)=3
  97       cofh36(2)=3
  98       cofh36(3)=3
  99       cofh36(4)=3
 100       cofh36(5)=6
 101       cofh36(6)=6
 102       cofh36(7)=6
 103       cofh36(8)=6
 104 c
 105       cofh47(1)=4
 106       cofh47(2)=4
 107       cofh47(3)=4
 108       cofh47(4)=4
 109       cofh47(5)=7
 110       cofh47(6)=7
 111       cofh47(7)=7
 112       cofh47(8)=7
 113 c
 114 c===
 115 c 3. codes des faces creees dans le raffinement standard d'un pentaedre
 116 c    suivant le code de la mere
 117 c===
 118 c
 119       cofp08(1,0) = 1
 120       cofp08(2,0) = 2
 121       cofp08(3,0) = 3
 122       cofp08(4,0) = 4
 123       cofp08(5,0) = 5
 124       cofp08(6,0) = 6
 125       cofp08(7,0) = 7
 126       cofp08(8,0) = 8
 127 c
 128       cofp08(1,1) = 2
 129       cofp08(2,1) = 3
 130       cofp08(3,1) = 4
 131       cofp08(4,1) = 1
 132       cofp08(5,1) = 8
 133       cofp08(6,1) = 5
 134       cofp08(7,1) = 6
 135       cofp08(8,1) = 7
 136 c
 137       cofp08(1,2) = 3
 138       cofp08(2,2) = 4
 139       cofp08(3,2) = 1
 140       cofp08(4,2) = 2
 141       cofp08(5,2) = 7
 142       cofp08(6,2) = 8
 143       cofp08(7,2) = 5
 144       cofp08(8,2) = 6
 145 c
 146       cofp08(1,3) = 4
 147       cofp08(2,3) = 1
 148       cofp08(3,3) = 2
 149       cofp08(4,3) = 3
 150       cofp08(5,3) = 6
 151       cofp08(6,3) = 7
 152       cofp08(7,3) = 8
 153       cofp08(8,3) = 5
 154 c
 155       end