29 integer cret, fid,mdim
39 data con / 1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16 /
40 data nom /
"poly1",
"poly2",
"poly3"/
41 data num / 1,2,3 /, fam /0,-1,-2/
42 data index /1,6,12,17/
46 call efouvr(fid,
'test23.med',med_lecture_ecriture, cret)
48 if (cret .ne. 0 )
then
49 print *,
'Erreur creation du fichier'
52 print *,
'Creation du fichier test23.med'
55 call efmaac(fid,maa,mdim,med_non_structure,
56 &
'un maillage pour test23',cret)
58 if (cret .ne. 0 )
then
59 print *,
'Erreur creation du maillage'
62 print *,
'Creation du maillage'
65 call efpgce(fid,maa,index,ni,con,med_maille,med_nod,cret)
66 if (cret .ne. 0 )
then
67 print *,
'Erreur ecriture des connectivite polygones'
71 print *,
'Ecriture des connectivites des mailles de type
75 call efnome(fid,maa,nom,n,med_maille,med_polygone,
78 if (cret .ne. 0 )
then
79 print *,
'Erreur ecriture des noms polygones'
82 print *,
'Ecriture des noms des polygones'
85 call efnume(fid,maa,num,n,med_maille,med_polygone,
87 if (cret .ne. 0 )
then
88 print *,
'Erreur ecriture des numeros polygones'
92 print *,
'Ecriture des numeros des polygones'
95 call effame(fid,maa,fam,n,
96 & med_maille,med_polygone,cret)
97 if (cret .ne. 0 )
then
98 print *,
'Erreur ecriture des numeros de famille polygones'
102 print *,
'Ecriture des numeros de familles des polygones'
105 call efferm (fid,cret)
107 if (cret .ne. 0 )
then
108 print *,
'Erreur fermeture du fichier'
111 print *,
'Fermeture du fichier'