38 integer indexp(np),indexf(nf)
42 parameter(nf2=8,np2=3)
43 integer indexp2(np2),indexf2(nf2)
49 data indexf / 1,4,7,10,13,16,19,22,25 /
50 data conn / 1,2,3,4,5,6,7,8,9,10,11,12,13,14,
51 & 15,16,17,18,19,20,21,22,23,24 /
52 data indexp2 / 1,5,9 /
53 data indexf2 / med_tria3,med_tria3,med_tria3,med_tria3,
54 & med_tria3,med_tria3,med_tria3,med_tria3 /
55 data conn2 / 1,2,3,4,5,6,7,8 /
56 data nom /
"poly1",
"poly2"/
57 data num / 1,2 /, fam / 0,-1 /
61 call efouvr(fid,
'test25.med',med_lecture_ecriture, cret)
63 if (cret .ne. 0 )
then
64 print *,
'Erreur creation du fichier'
67 print *,
'Creation du fichier test25.med'
70 call efmaac(fid,maa,mdim,med_non_structure,
71 &
'un maillage pour test25',cret)
72 if (cret .ne. 0 )
then
73 print *,
'Erreur creation du maillage'
77 print *,
'Creation du maillage'
80 call efpece(fid,maa,indexp,np,indexf,nf,conn,med_nod,cret)
82 if (cret .ne. 0 )
then
83 print *,
'Erreur ecriture connectivite des polyedres'
86 print *,
'Ecriture des connectivites des mailles
87 & de type MED_POLYEDRE'
88 print *,
'Description nodale'
91 call efpece(fid,maa,indexp2,np2,indexf2,nf2,conn2,med_desc,cret)
93 if (cret .ne. 0 )
then
94 print *,
'Erreur ecriture connectivite des polyedres'
97 print *,
'Ecriture des connectivites des mailles
98 & de type MED_POLYEDRE'
99 print *,
'Description descendante'
102 call efnome(fid,maa,nom,n,med_maille,med_polyedre,
105 if (cret .ne. 0 )
then
106 print *,
'Erreur ecriture noms des polyedres'
109 print *,
'Ecriture des noms des polyedress'
112 call efnume(fid,maa,num,n,med_maille,med_polyedre,
115 if (cret .ne. 0 )
then
116 print *,
'Erreur ecriture numeros des polyedres'
119 print *,
'Ecriture des numeros des polyedres'
122 call effame(fid,maa,fam,n,
123 & med_maille,med_polyedre,cret)
125 if (cret .ne. 0 )
then
126 print *,
'Erreur ecriture numeros de familles polyedres'
129 print *,
'Ecriture des numeros de familles des polyedres'
132 call efferm (fid,cret)
134 if (cret .ne. 0 )
then
135 print *,
'Erreur fermeture du fichier'
138 print *,
'Fermeture du fichier'