1 subroutine vcvar1 ( areele, typele, povoar )
2 c ______________________________________________________________________
6 c Outil de Maillage Adaptatif par Raffinement et Deraffinement d'EDF R&D
8 c Version originale enregistree le 18 juin 1996 sous le numero 96036
9 c aupres des huissiers de justice Simart et Lavoir a Clamart
10 c Version 11.2 enregistree le 13 fevrier 2015 sous le numero 2015/014
11 c aupres des huissiers de justice
12 c Lavoir, Silinski & Cherqui-Abrahmi a Clamart
14 c HOMARD est une marque deposee d'Electricite de France
20 c ______________________________________________________________________
22 c aVant adaptation - Conversion - VOisins des Aretes - phase 1
24 c ______________________________________________________________________
26 c but : determine le nombre d'elements 2d ou 3d voisins de chaque arete
27 c ______________________________________________________________________
29 c . nom . e/s . taille . description .
30 c .____________________________________________________________________.
31 c . areele . e . nbelem . aretes des elements .
33 c . typele . e . nbelem . type des elements pour le code de calcul .
34 c . povoar . s .0:nbarto. pointeur des voisins par arete .
35 c ______________________________________________________________________
38 c 0. declarations et dimensionnement
41 c 0.1. ==> generalites
57 integer areele(nbelem,nbmaae), typele(nbelem)
58 integer povoar(0:nbarto)
60 c 0.4. ==> variables locales
62 integer el, arete, typhom
65 c ______________________________________________________________________
68 c 1. on passe en revue chaque element
69 c si c'est un element 2d ou 3d, on incremente de 1 le nombre
70 c d'elements 2d ou 3d voisins de ses aretes
71 c selon le type, il n'y a pas le meme nombre d'aretes
74 do 11 , arete = 1 , nbarto
78 do 12 , el = 1 , nbelem
80 typhom = medtrf(typele(el))
81 nbarel = nbaref(typhom)
82 if ( tyeref(typhom).ne.0 ) then
86 do 121 , iaux = 1 , nbarel
87 povoar(areele(el,iaux)) = povoar(areele(el,iaux)) + 1
93 c 2. on initialise le pointeur dans le tableau des voisins
94 c povoar(i) = position du dernier voisin de l'arete i-1
95 c = nombre cumule de voisins pour les (i-1) 1eres aretes
100 do 21 , arete = 1 , nbarto
101 povoar(arete) = povoar(arete) + povoar(arete-1)
104 nvoare = povoar(nbarto)
106 do 22 , arete = nbarto , 1 , -1
107 povoar(arete) = povoar(arete-1)