1 subroutine uttpyr ( lapyra, torsio,
2 > coonoe, somare, aretri,
3 > facpyr, cofapy, arepyr )
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'une PYRamide
27 c ______________________________________________________________________
29 c . nom . e/s . taille . description .
30 c .____________________________________________________________________.
31 c . lapyra . e . 1 . numero de la pyramide a examiner .
32 c . torsio . s . 1 . torsion de la pyramide .
33 c . coonoe . e . nbnoto . coordonnees des noeuds .
35 c . somare . e .2*nbarto. numeros des extremites d'arete .
36 c . aretri . e .nbtrto*4. numeros des 4 aretes des quadrangles .
37 c . facpyr . e .nbpycf*5. numeros des 5 faces des pyramides .
38 c . cofapy . e .nbpycf*5. codes des 5 faces des pyramides .
39 c . arepyr . e .nbpyca*8. numeros des 8 aretes des pyramides .
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 aretri(nbtrto,3)
65 integer facpyr(nbpycf,5), cofapy(nbpycf,5), arepyr(nbpyca,8)
67 c 0.4. ==> variables locales
69 integer listar(8), listso(5)
72 c 1. les aretes et les sommets de la pyramide
76 > nbtrto, nbpycf, nbpyca,
78 > facpyr, cofapy, arepyr,
83 c La face f5 est le quadrangle.
84 c Elle s'appuie sur les sommets s1, s2, s3, s4.
87 call uttoqu ( listso(1), listso(2), listso(3), listso(4),