1 subroutine utashe ( lehexa,
2 > nbquto, nbhecf, nbheca,
4 > quahex, coquhe, arehex,
6 c ______________________________________________________________________
10 c Outil de Maillage Adaptatif par Raffinement et Deraffinement d'EDF R&D
12 c Version originale enregistree le 18 juin 1996 sous le numero 96036
13 c aupres des huissiers de justice Simart et Lavoir a Clamart
14 c Version 11.2 enregistree le 13 fevrier 2015 sous le numero 2015/014
15 c aupres des huissiers de justice
16 c Lavoir, Silinski & Cherqui-Abrahmi a Clamart
18 c HOMARD est une marque deposee d'Electricite de France
24 c ______________________________________________________________________
26 c UTilitaire : Aretes et Sommets d'un HExaedre
28 c ______________________________________________________________________
30 c . nom . e/s . taille . description .
31 c .____________________________________________________________________.
32 c . lehexa . e . 1 . numero du hexaedre a analyser .
33 c . nbquto . e . 1 . nombre total de quadrangles .
34 c . nbhecf . e . 1 . nombre d'hexaedres decrits par faces .
35 c . nbheca . e . 1 . nombre d'hexaedres decrits par aretes .
36 c . somare . e .2*nbarto. numeros des extremites d'arete .
37 c . arequa . e .nbquto*4. numeros des 4 aretes des quadrangles .
38 c . quahex . e .nbhecf*6. numeros des 6 quadrangles des hexaedres .
39 c . coquhe . e .nbhecf*6. codes des 6 quadrangles des hexaedres .
40 c . arehex . e .nbheca12. numeros des 12 aretes des hexaedres .
41 c . listar . s . 12 . les 12 aretes de l'hexaedre .
42 c . listso . s . 8 . liste des sommets de l'hexaedre .
43 c ______________________________________________________________________
46 c 0. declarations et dimensionnement
49 c 0.1. ==> generalites
59 integer nbquto, nbhecf, nbheca
62 integer arequa(nbquto,4)
63 integer quahex(nbhecf,6), coquhe(nbhecf,6), arehex(nbheca,12)
65 integer listar(12), listso(8)
67 c 0.4. ==> variables locales
70 c ______________________________________________________________________
75 c 1. Les aretes de l'hexaedre
78 if ( lehexa.le.nbhecf ) then
82 > arequa, quahex, coquhe,
88 listar(iaux) = arehex(lehexa-nbhecf,iaux)
92 cgn if ( lehexa.le.-210803 ) then
93 cgn write(1,*) 'listar en sortie de utashe'
94 cgn write(1,91010) listar
98 c 2. les sommets de l'hexaedre
101 call utsohe ( somare, listar, listso )