2 c=======================================================================
3 c nombres propres aux noeuds
4 c-----------------------------------------------------------------------
5 c nbnois : nombre de noeuds isoles
6 c nbnoei : nombre de noeuds d'elements ignores
7 c nbnoma : nombre de noeuds du macro-maillage
8 c nbnomp : nombre de noeuds support de maille-point uniquement
9 c nbnop1 : nombre de sommets du maillage (noeuds p1)
10 c nbnop2 : nombre de noeuds milieux d'aretes du maillage (noeuds p2)
11 c nbnoim : nombre de noeuds internes aux mailles
12 c nbnoto : nombre total de noeuds du maillage (nbnop1+nbnop2+nbnoim)
13 c nbpnho : nombre de paires de noeuds homologues
14 c numip1 : numero minimum pour un sommet du maillage (noeud p1)
15 c numap1 : numero maximum pour un sommet du maillage (noeud p1)
16 c nbnoin : nombre de noeuds internes aux volumes coupees par conformite
17 c-----------------------------------------------------------------------
18 integer nbnois, nbnoei, nbnoma, nbnomp,
19 > nbnop1, nbnop2, nbnoim, nbnoto,
20 > nbpnho, numip1, numap1, nbnoin
21 common /nombno/ nbnois, nbnoei, nbnoma, nbnomp,
22 > nbnop1, nbnop2, nbnoim, nbnoto,
23 > nbpnho, numip1, numap1, nbnoin