1 subroutine utaste ( letetr,
2 > nbtrto, nbtecf, nbteca,
4 > tritet, cotrte, aretet,
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 TEtraedre
28 c ______________________________________________________________________
30 c . nom . e/s . taille . description .
31 c .____________________________________________________________________.
32 c . letetr . e . 1 . numero du tetraedre a examiner .
33 c . nbtrto . e . 1 . nombre total de triangles .
34 c . nbtecf . e . 1 . nombre total de tetraedres decrits par face.
35 c . nbteca . e . 1 . nombre total de tetras decrits par aretes .
36 c . somare . e .2*nbarto. numeros des extremites d'arete .
37 c . aretri . e .nbtrto*3. numeros des 3 aretes des triangles .
38 c . tritet . e .nbtecf*4. numeros des 4 triangles des tetraedres .
39 c . cotrte . e .nbtecf*4. codes des 4 triangles des tetraedres .
40 c . aretet . e .nbteca*6. numeros des 6 aretes des tetraedres .
41 c . listar . s . 6 . les 6 aretes du tetraedre .
42 c . listso . s . 4 . liste des sommets du tetraedre .
43 c .____________________________________________________________________.
46 c 0. declarations et dimensionnement
49 c 0.1. ==> generalites
59 integer nbtrto, nbtecf, nbteca
62 integer aretri(nbtrto,3)
63 integer tritet(nbtecf,4), cotrte(nbtecf,4), aretet(nbteca,6)
65 integer listar(6), listso(4)
67 c 0.4. ==> variables locales
70 c ______________________________________________________________________
73 c 1. Les aretes du tetraedre
76 if ( letetr.le.nbtecf ) then
80 > aretri, tritet, cotrte,
86 listar(iaux) = aretet(letetr-nbtecf,iaux)
92 c 2. les sommets du tetraedre
95 call utsote ( somare, listar, listso )