2 c=======================================================================
3 c nombres propres aux pyramides
4 c-----------------------------------------------------------------------
5 c nbpyac : nombre de pyramides actives
6 c nbpyde : nombre de pyramides issues du decoupage de pyramides
7 c Pour un raffinement selon des boites :
8 c nbpyh1 : issues d'un decoupage d'un hexaedre a partir d'une face
9 c nbpyh2 : issues d'un decoupage d'un hexaedre a partir de 3 aretes
10 c nbpyh3 : issues d'un decoupage d'un hexaedre a partir de 2 aretes
11 c nbpyh4 : issues d'un decoupage d'un hexaedre a partir d'1 arete
12 c nbpyp0 : issues d'un decoupage d'un pentaedre a partir d'1 ar tr
13 c nbpyp1 : issues d'un decoupage d'un pentaedre a partir d'1 ar qu
14 c nbpyp2 : issues d'un decoupage d'un pentaedre a partir de 2 ar tr/qu
15 c nbpyp3 : issues d'un decoupage d'un pentaedre a partir de 2 ar qu/qu
16 c nbpyp4 : issues d'un decoupage d'un pentaedre a partir d'1 face qu
17 c nbpyp5 : issues d'un decoupage d'un pentaedre a partir d'1 face tr
19 c nbpydh : issues d'un decoupage d'un hexaedre
20 c nbpydp : issues d'un decoupage d'un pentaedre
21 c nbpyma : nombre de pyramides du macro-maillage.
22 c nbpype : nombre de pyramides permanents du maillage (nbpyma+nbpyde).
23 c nbpyto : nombre total de pyramides du maillage (nbpycf+nbpyca)
24 c nbpycf : nombre de pyramides en connectivite par faces
25 c nbpyca : nombre de pyras en connectivite par aretes (nbpydh+nbpydp)
26 c-----------------------------------------------------------------------
27 integer nbpyac, nbpyde,
28 > nbpyh1, nbpyh2, nbpyh3, nbpyh4,
29 > nbpyp0, nbpyp1, nbpyp2, nbpyp3, nbpyp4, nbpyp5,
31 > nbpyma, nbpype, nbpyto, nbpycf, nbpyca
32 common /nombpy/ nbpyac, nbpyde,
33 > nbpyh1, nbpyh2, nbpyh3, nbpyh4,
34 > nbpyp0, nbpyp1, nbpyp2, nbpyp3, nbpyp4, nbpyp5,
36 > nbpyma, nbpype, nbpyto, nbpycf, nbpyca