2 c=======================================================================
3 c nombres propres aux aretes
4 c-----------------------------------------------------------------------
5 c nbarac : nombre d'aretes actives
6 c nbarde : nombre d'aretes crees pour le decoupage standard du maillage,
7 c soit au decoupage des faces en 4, soit en interne aux
8 c tetraedres, hexaedres, pentaedres coupes en 8
9 c nbart2 : nombre d'aretes internes des triangles decoupes en 2
10 c nbarq2 : nombre d'aretes internes des quadrangles decoupes en 2
11 c nbarq3 : nombre d'aretes internes des quadrangles decoupes en 3 tria
12 c nbarq5 : nombre d'aretes internes des quadrangles decoupes en 3 quad
13 c nbarin : nombre d'aretes internes aux volumes coupees par conformite
14 c nbarma : nombre d'aretes du macro-maillage
15 c nbarpe : nombre d'aretes permanentes du maillage (nbarma+nbarde)
16 c nbarto : nombre total d'aretes du maillage
17 c = nbarpe + nbart2 + nbarq2 + nbarq3 + nbarq5 + nbarin
18 c nbfaar : nombre cumule des faces autour des aretes
19 c nbpaho : nombre de paires d'aretes homologues
20 c-----------------------------------------------------------------------
21 integer nbarac, nbarde, nbart2,
22 > nbarq2, nbarq3, nbarq5,
24 > nbarma, nbarpe, nbarto, nbfaar, nbpaho
25 common /nombar/ nbarac, nbarde, nbart2,
26 > nbarq2, nbarq3, nbarq5,
28 > nbarma, nbarpe, nbarto, nbfaar, nbpaho