29 integer cret, fid,mdim,sdim
30 parameter(mdim = 2, sdim = 2)
40 character*16 nomcoo(2)
41 character*16 unicoo(2)
43 data con / 1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16 /
44 data nom /
"poly1",
"poly2",
"poly3"/
45 data num / 1,2,3 /, fam /0,-1,-2/
46 data index /1,6,12,17/
48 data nomcoo /
"x",
"y"/, unicoo /
"cm",
"cm"/
51 call mfiope(fid,
'test23.med',med_acc_rdwr, cret)
53 if (cret .ne. 0 )
then
54 print *,
'Erreur creation du fichier'
57 print *,
'Creation du fichier test23.med'
60 call mmhcre(fid,maa,mdim,sdim,
61 & med_unstructured_mesh,
'un maillage pour test 23',
62 &
"",med_sort_dtit,med_cartesian,nomcoo,unicoo,cret)
64 if (cret .ne. 0 )
then
65 print *,
'Erreur creation du maillage'
68 print *,
'Creation du maillage'
71 call mmhpgw(fid,maa,med_no_dt,med_no_it,med_undef_dt,med_cell,
72 & med_nodal,ni,index,con,cret)
73 if (cret .ne. 0 )
then
74 print *,
'Erreur ecriture des connectivite polygones'
78 print *,
'Ecriture des connectivites des mailles de type
82 call mmheaw(fid,maa,med_no_dt,med_no_it,med_cell,
83 & med_polygon,n,nom,cret)
85 if (cret .ne. 0 )
then
86 print *,
'Erreur ecriture des noms polygones'
89 print *,
'Ecriture des noms des polygones'
92 call mmhenw(fid,maa,med_no_dt,med_no_it,med_cell,
93 & med_polygon,n,num,cret)
94 if (cret .ne. 0 )
then
95 print *,
'Erreur ecriture des numeros polygones'
99 print *,
'Ecriture des numeros des polygones'
102 call mmhfnw(fid,maa,med_no_dt,med_no_it,med_cell,
103 & med_polygon,n,fam,cret)
104 if (cret .ne. 0 )
then
105 print *,
'Erreur ecriture des numeros de famille polygones'
109 print *,
'Ecriture des numeros de familles des polygones'
114 if (cret .ne. 0 )
then
115 print *,
'Erreur fermeture du fichier'
118 print *,
'Fermeture du fichier'