40 data con / 1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16 /
41 data nom /
"poly1",
"poly2",
"poly3"/
42 data num / 1,2,3 /, fam /0,-1,-2/
43 data index /1,6,12,17/
47 call efouvr(fid,
'test23.med',med_lecture_ecriture, cret)
49 if (cret .ne. 0 )
then
50 print *,
'Erreur creation du fichier'
53 print *,
'Creation du fichier test23.med'
56 call efmaac(fid,maa,mdim,med_non_structure,
57 &
'un maillage pour test23',cret)
59 if (cret .ne. 0 )
then
60 print *,
'Erreur creation du maillage'
63 print *,
'Creation du maillage'
66 call efpgce(fid,maa,index,ni,con,med_maille,med_nod,cret)
67 if (cret .ne. 0 )
then
68 print *,
'Erreur ecriture des connectivite polygones'
72 print *,
'Ecriture des connectivites des mailles de type
76 call efnome(fid,maa,nom,n,med_maille,med_polygone,
79 if (cret .ne. 0 )
then
80 print *,
'Erreur ecriture des noms polygones'
83 print *,
'Ecriture des noms des polygones'
86 call efnume(fid,maa,num,n,med_maille,med_polygone,
88 if (cret .ne. 0 )
then
89 print *,
'Erreur ecriture des numeros polygones'
93 print *,
'Ecriture des numeros des polygones'
96 call effame(fid,maa,fam,n,
97 & med_maille,med_polygone,cret)
98 if (cret .ne. 0 )
then
99 print *,
'Erreur ecriture des numeros de famille polygones'
103 print *,
'Ecriture des numeros de familles des polygones'
106 call efferm (fid,cret)
108 if (cret .ne. 0 )
then
109 print *,
'Erreur fermeture du fichier'
112 print *,
'Fermeture du fichier'