2 c=======================================================================
3 c nombres propres aux triangles
4 c-----------------------------------------------------------------------
5 c nbtrac : nombre de triangles actifs
6 c nbtrde : nombre de triangles issus d'un decoupage en 4 des triangles
7 c ou internes a un tetraedre ou pentaedre coupe en 8.
8 c nbtrt2 : nombre de triangles issus d'un decoupage en 2 des triangles.
9 c nbtrq3 : nombre de triangles issus d'un decoupage en 3 des quadrangles
10 c nbtrhc : nombre de triangles internes aux hexa coupes par conformite
11 c nbtrpc : nombre de triangles internes aux penta coupes par conformite
12 c nbtrtc : nombre de triangles internes aux tetra coupes par conformite
13 c nbtrma : nombre de triangles du macro-maillage.
14 c nbtrpe : nombre de triangles permanents du maillage (nbtrma+nbtrde).
15 c nbtrto : nombre total de triangles du maillage
16 c = nbtrpe + nbtrt2 + nbtrhc + nbtrpc + nbtrtc + nbtrq3
17 c nbptho : nombre de paires de triangles homologues.
18 c nbtrri : nombre de triangles recolles dans le maillage initial
19 c-----------------------------------------------------------------------
20 integer nbtrac, nbtrde, nbtrt2, nbtrq3,
21 > nbtrhc, nbtrpc, nbtrtc,
22 > nbtrma, nbtrpe, nbtrto, nbptho, nbtrri
23 common /nombtr/ nbtrac, nbtrde, nbtrt2, nbtrq3,
24 > nbtrhc, nbtrpc, nbtrtc,
25 > nbtrma, nbtrpe, nbtrto, nbptho, nbtrri