2 c=======================================================================
3 c nombres utiles au maillage de calcul
4 c cela correspond a peu pres a la branche Nombres de l'objet
6 c-----------------------------------------------------------------------
7 c sdimca : dimension de l'espace (2 ou 3)
8 c mdimca : dimension du maillage (1, 2 ou 3)
9 c nbelem : nombre d'elements dans le maillage
10 c nbmaae : nombre maximum d'aretes par element
11 c nbmafe : nombre maximum de faces par element
12 c nbmnei : nombre maximum de noeuds par element elimine
13 c nbmapo : nombre de mailles-points dans le maillage
14 c nbsegm : nombre de segments dans le maillage
15 c nbtria : nombre de triangles dans le maillage
16 c nbtetr : nombre de tetraedres dans le maillage
17 c nbquad : nombre de quadrangles dans le maillage
18 c nbhexa : nombre d'hexaedres dans le maillage
19 c nbpent : nombre de pentaedres dans le maillage
20 c nbpyra : nombre de pyramides dans le maillage
21 c nbelig : nombre d'elements a eliminer de l'adaptation
22 c numael : numero maximum d'element dans le maillage
23 c numano : numero maximum de noeud dans le maillage
24 c nbma2d : nombre total de mailles 2D
25 c nbma3d : nombre total de mailles 3D
26 c nvoare : nombre cumule d'elements voisins d'aretes du maillage
27 c nvosom : nombre cumule d'elements voisins des sommets du maillage
28 c nbfmed : nombre total de familles MED pour toutes les entites
29 c nbfmen : nombre de familles MED pour les noeuds
30 c ngrouc : nombre de groupes cumules dans les familles
31 c nbequi : nombre total d'equivalences
32 c nbeqno : nombre total de paires equivalentes de noeuds
33 c nbeqmp : nombre total de paires equivalentes de mailles-points
34 c nbeqar : nombre total de paires equivalentes d'aretes
35 c nbeqtr : nombre total de paires equivalentes de triangles
36 c nbeqqu : nombre total de paires equivalentes de quadrangles
37 c nbeqte : nombre total de paires equivalentes de tetraedres
38 c nbeqhe : nombre total de paires equivalentes d'hexaedres
39 c-----------------------------------------------------------------------
40 integer sdimca, mdimca,
41 > nbelem, nbmaae, nbmafe, nbmnei,
42 > nbmapo, nbsegm, nbtria, nbtetr,
43 > nbquad, nbhexa, nbpent, nbpyra, nbelig,
45 > numael, numano, nvoare, nvosom,
46 > nbfmed, nbfmen, ngrouc,
47 > nbequi, nbeqno, nbeqmp, nbeqar, nbeqtr, nbeqqu,
49 common /nbutil/ sdimca, mdimca,
50 > nbelem, nbmaae, nbmafe, nbmnei,
51 > nbmapo, nbsegm, nbtria, nbtetr,
52 > nbquad, nbhexa, nbpent, nbpyra, nbelig,
54 > numael, numano, nvoare, nvosom,
55 > nbfmed, nbfmen, ngrouc,
56 > nbequi, nbeqno, nbeqmp, nbeqar, nbeqtr, nbeqqu,