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'