30 integer cret,mdim,sdim
31 parameter(mdim = 2, sdim = 2)
41 character*16 nomcoo(2)
42 character*16 unicoo(2)
44 data con / 1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16 /
45 data nom /
"poly1",
"poly2",
"poly3"/
46 data num / 1,2,3 /, fam /0,-1,-2/
47 data index /1,6,12,17/
49 data nomcoo /
"x",
"y"/, unicoo /
"cm",
"cm"/
52 call mfiope(fid,
'test23.med',med_acc_rdwr, cret)
54 if (cret .ne. 0 )
then
55 print *,
'Erreur creation du fichier'
58 print *,
'Creation du fichier test23.med'
61 call mmhcre(fid,maa,mdim,sdim,
62 & med_unstructured_mesh,
'un maillage pour test 23',
63 &
"",med_sort_dtit,med_cartesian,nomcoo,unicoo,cret)
65 if (cret .ne. 0 )
then
66 print *,
'Erreur creation du maillage'
69 print *,
'Creation du maillage'
72 call mmhpgw(fid,maa,med_no_dt,med_no_it,med_undef_dt,med_cell,
73 & med_nodal,ni,index,con,cret)
74 if (cret .ne. 0 )
then
75 print *,
'Erreur ecriture des connectivite polygones'
79 print *,
'Ecriture des connectivites des mailles de type
83 call mmheaw(fid,maa,med_no_dt,med_no_it,med_cell,
84 & med_polygon,n,nom,cret)
86 if (cret .ne. 0 )
then
87 print *,
'Erreur ecriture des noms polygones'
90 print *,
'Ecriture des noms des polygones'
93 call mmhenw(fid,maa,med_no_dt,med_no_it,med_cell,
94 & med_polygon,n,num,cret)
95 if (cret .ne. 0 )
then
96 print *,
'Erreur ecriture des numeros polygones'
100 print *,
'Ecriture des numeros des polygones'
103 call mmhfnw(fid,maa,med_no_dt,med_no_it,med_cell,
104 & med_polygon,n,fam,cret)
105 if (cret .ne. 0 )
then
106 print *,
'Erreur ecriture des numeros de famille polygones'
110 print *,
'Ecriture des numeros de familles des polygones'
115 if (cret .ne. 0 )
then
116 print *,
'Erreur fermeture du fichier'
119 print *,
'Fermeture du fichier'