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' subroutine mmhcre(fid, name, sdim, mdim, mtype, desc, dtunit, stype, atype, aname, aunit, cret)
subroutine mfiope(fid, name, access, cret)
subroutine mficlo(fid, cret)
subroutine mmheaw(fid, mname, numdt, numit, entype, geotype, n, ename, cret)
subroutine mmhfnw(fid, name, numdt, numit, entype, geotype, n, num, cret)
subroutine mmhenw(fid, name, numdt, numit, entype, geotype, n, num, cret)
subroutine mmhpgw(fid, name, numdt, numit, dt, entype, cmode, isize, index, con, cret)