1 subroutine utthex ( lehexa, torsio,
2 > coonoe, somare, arequa,
3 > quahex, coquhe, arehex )
5 c ______________________________________________________________________
9 c Outil de Maillage Adaptatif par Raffinement et Deraffinement d'EDF R&D
11 c Version originale enregistree le 18 juin 1996 sous le numero 96036
12 c aupres des huissiers de justice Simart et Lavoir a Clamart
13 c Version 11.2 enregistree le 13 fevrier 2015 sous le numero 2015/014
14 c aupres des huissiers de justice
15 c Lavoir, Silinski & Cherqui-Abrahmi a Clamart
17 c HOMARD est une marque deposee d'Electricite de France
23 c ______________________________________________________________________
25 c UTilitaire : Torsion d'un HEXaedre
27 c ______________________________________________________________________
29 c . nom . e/s . taille . description .
30 c .____________________________________________________________________.
31 c . lehexa . e . 1 . numero de l'hexaedre a examiner .
32 c . torsio . s . 1 . torsion de l'hexaedre .
33 c . coonoe . e . nbnoto . coordonnees des noeuds .
35 c . somare . e .2*nbarto. numeros des extremites d'arete .
36 c . arequa . e .nbquto*4. numeros des 4 aretes des quadrangles .
37 c . quahex . e .nbhecf*6. numeros des 6 quadrangles des hexaedres .
38 c . coquhe . e .nbhecf*6. codes des 6 quadrangles des hexaedres .
39 c . arehex . e .nbheca12. numeros des 12 aretes des hexaedres .
40 c .____________________________________________________________________.
43 c 0. declarations et dimensionnement
46 c 0.1. ==> generalites
60 double precision torsio, coonoe(nbnoto,3)
63 integer somare(2,nbarto)
64 integer arequa(nbquto,4)
65 integer quahex(nbhecf,6), coquhe(nbhecf,6), arehex(nbheca,12)
67 c 0.4. ==> variables locales
69 integer listar(12), listso(8)
74 c 1. Les aretes et les sommets de l'hexaedre
78 > nbquto, nbhecf, nbheca,
80 > quahex, coquhe, arehex,
89 call uttoqu ( listso(1), listso(2), listso(3), listso(4),
95 call uttoqu ( listso(1), listso(2), listso(5), listso(6),
97 torsio = max(torsio, daux)
101 call uttoqu ( listso(1), listso(6), listso(7), listso(4),
103 torsio = max(torsio, daux)
107 call uttoqu ( listso(5), listso(2), listso(3), listso(8),
109 torsio = max(torsio, daux)
113 call uttoqu ( listso(7), listso(8), listso(3), listso(4),
115 torsio = max(torsio, daux)
119 call uttoqu ( listso(5), listso(6), listso(7), listso(8),
121 torsio = max(torsio, daux)