1 subroutine utnmqu ( lequad, noeumi,
2 > somare, arequa, filqua )
3 c ______________________________________________________________________
7 c Outil de Maillage Adaptatif par Raffinement et Deraffinement d'EDF R&D
9 c Version originale enregistree le 18 juin 1996 sous le numero 96036
10 c aupres des huissiers de justice Simart et Lavoir a Clamart
11 c Version 11.2 enregistree le 13 fevrier 2015 sous le numero 2015/014
12 c aupres des huissiers de justice
13 c Lavoir, Silinski & Cherqui-Abrahmi a Clamart
15 c HOMARD est une marque deposee d'Electricite de France
21 c ______________________________________________________________________
23 c UTilitaire - Noeud Milieu d'un QUadrangle
25 c ______________________________________________________________________
27 c . nom . e/s . taille . description .
28 c .____________________________________________________________________.
29 c . lequad . e . 1 . numero du quadrangle a examiner .
30 c . noeumi . s . 1 . numero du noeud milieu .
31 c . somare . e .2*nbaret. numeros des extremites d'arete .
32 c . arequa . e .nbquto*4. numeros des 4 aretes des quadrangles .
33 c . filqua . e . nbquto . premier fils des quadrangles .
34 c ______________________________________________________________________
37 c 0. declarations et dimensionnement
40 c 0.1. ==> generalites
51 integer lequad, noeumi
53 integer arequa(nbquto,4), filqua(*)
55 c 0.4. ==> variables locales
57 c f1hp = Fils 1er du quadrangle en numerotation Homard a l'it. N+1
61 c 1. recherche du noeud sommet central
62 c Pour le connaitre, on examine le premier fils du quadrangle. C'est
63 c la seconde extremite de sa deuxieme arete.
64 c Remarque : regarder cmrdqu pour ces conventions
71 c recuperation du noeud sommet central : le second sommet
72 c de la troisieme arete, que ce soit pour le decoupage standard
73 c en 4 quadrangles (cf. cmrdqu) ou pour le decoupage de
74 c conformite en 3 quadrangles (cf. cmcdqu)
76 noeumi = somare(2,arequa(f1hp,3))