2 c=======================================================================
3 c nombres d'entites du maillage adapte
4 c-----------------------------------------------------------------------
5 c nouvno : nombre de noeuds du maillage adapte
6 c permno : nombre de noeuds permanents du maillage adapte (nouvno en p1)
7 c permp1 : nombre de noeuds p1 permanents du maillage adapte
8 c provp1 : nombre de noeuds p1 provisoires du maillage adapte
9 c nouvp2 : nombre de noeuds p2 (milieux) du maillage adapte
10 c permp2 : nombre de noeuds p2 (milieux) permanents du maillage adapte
11 c provp2 : nombre de noeuds p2 (milieux) provisoires du maillage adapte
12 c nouvim : nombre de noeuds internes aux mailles du maillage adapte
13 c permim : nombre de noeuds internes permanents du maillage adapte
14 c provim : nombre de noeuds internes provisoires du maillage adapte
15 c nouvar : nombre d'aretes du maillage adapte
16 c permar : nombre d'aretes permanentes du maillage adapte
17 c provar : nombre d'aretes provisoires du maillage adapte
18 c nouvtr : nombre de triangles du maillage adapte
19 c permtr : nombre de triangles permanents du maillage adapte
20 c provtr : nombre de triangles provisoires du maillage adapte
21 c nouvqu : nombre de quadrangles du maillage adapte
22 c permqu : nombre de quadrangles permanents du maillage adapte
23 c provqu : nombre de quadangles provisoires du maillage adapte
24 c nouvte : nombre de tetraedres du maillage adapte
25 c nouvtf : nombre de tetraedres du maillage adapte decrits par face
26 c nouvta : nombre de tetraedres du maillage adapte decrits par arete
27 c permte : nombre de tetraedres permanents du maillage adapte
28 c provte : nombre de tetraedres provisoires du maillage adapte
29 c provtf : nombre de tetraedres provisoires decrits par face
30 c provta : nombre de tetraedres provisoires decrits par arete
31 c nouvhe : nombre d'hexaedres du maillage adapte
32 c permhe : nombre d'hexaedres permanents du maillage adapte
33 c nouvhf : nombre d'hexaedres du maillage adapte decrits par face
34 c nouvha : nombre d'hexaedres du maillage adapte decrits par arete
35 c provhe : nombre d'hexaedres provisoires du maillage adapte
36 c provhf : nombre d'hexaedres provisoires decrits par face
37 c provha : nombre d'hexaedres provisoires decrits par arete
38 c nouvpy : nombre de pyramides du maillage adapte
39 c permpy : nombre de pyramides permanentes du maillage adapte
40 c nouvyf : nombre de pyramides du maillage adapte decrits par face
41 c nouvya : nombre de pyramides du maillage adapte decrits par arete
42 c provpy : nombre de pyramides provisoires du maillage adapte
43 c provyf : nombre de pyramides provisoires decrits par face
44 c provya : nombre de pyramides provisoires decrits par arete
45 c nouvpe : nombre de pentaedres du maillage adapte
46 c nouvpf : nombre de pentaedres du maillage adapte decrits par face
47 c nouvpa : nombre de pentaedres du maillage adapte decrits par arete
48 c permpe : nombre de pentaedres permanents du maillage adapte
49 c provpe : nombre de pentaedres provisoires du maillage adapte
50 c provpf : nombre de pentaedres provisoires decrits par face
51 c provpa : nombre de pentaedres provisoires decrits par arete
52 c-----------------------------------------------------------------------
53 integer nouvno, permno, permp1, provp1,
54 > nouvp2, permp2, provp2,
55 > nouvim, permim, provim,
56 > nouvar, permar, provar,
57 > nouvtr, permtr, provtr,
58 > nouvqu, permqu, provqu,
59 > nouvte, permte, nouvtf, nouvta,
60 > provte, provtf, provta,
61 > nouvhe, permhe, nouvhf, nouvha,
62 > provhe, provhf, provha,
63 > nouvpy, permpy, nouvyf, nouvya,
64 > provpy, provyf, provya,
65 > nouvpe, permpe, nouvpf, nouvpa,
66 > provpe, provpf, provpa
67 common /nouvnb/ nouvno, permno, permp1, provp1,
68 > nouvp2, permp2, provp2,
69 > nouvim, permim, provim,
70 > nouvar, permar, provar,
71 > nouvtr, permtr, provtr,
72 > nouvqu, permqu, provqu,
73 > nouvte, permte, nouvtf, nouvta,
74 > provte, provtf, provta,
75 > nouvhe, permhe, nouvhf, nouvha,
76 > provhe, provhf, provha,
77 > nouvpy, permpy, nouvyf, nouvya,
78 > provpy, provyf, provya,
79 > nouvpe, permpe, nouvpf, nouvpa,
80 > provpe, provpf, provpa