2 c=======================================================================
3 c nombres propres aux pentaedres
4 c-----------------------------------------------------------------------
5 c nbpeac : nombre de pentaedres actifs
6 c nbpeco : nombre de pentaedres decoupes par conformite
7 c nbpede : nombre de pentaedres issus d'un decoupage en 8 des
9 c nbpedp : issus d'un decoupage de conformite d'un pentaedre
10 c nbpema : nombre de pentaedres du macro-maillage.
11 c nbpepe : nombre de pentaedres permanents du maillage (nbpema+nbpede).
12 c nbpeto : nombre total de pentaedres du maillage
13 c nbpecf : nombre de pentaedres en connectivite par faces
14 c nbpeca : nombre de pentas en connectivite par aretes
15 c-----------------------------------------------------------------------
16 integer nbpeac, nbpeco, nbpede, nbpedp, nbpema,
17 > nbpepe, nbpeto, nbpecf, nbpeca
18 common /nombpe/ nbpeac, nbpeco, nbpede, nbpedp, nbpema,
19 > nbpepe, nbpeto, nbpecf, nbpeca