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'
subroutine mmheaw(fid, mname, numdt, numit, entype, geotype, n, ename, cret)
Cette routine permet d'écrire les noms d'un type d'entité d'un maillage.
subroutine mmhfnw(fid, name, numdt, numit, entype, geotype, n, num, cret)
Cette routine permet l'écriture des numéros de famille d'un type d'entité d'un maillage.
subroutine mmhpgw(fid, name, numdt, numit, dt, entype, cmode, isize, index, con, cret)
Cette routine permet l'écriture des connectivités de polygones.
subroutine mficlo(fid, cret)
Fermeture d'un fichier MED.
subroutine mmhcre(fid, name, sdim, mdim, mtype, desc, dtunit, stype, atype, aname, aunit, cret)
Cette routine permet de créer un maillage dans un fichier.
subroutine mfiope(fid, name, access, cret)
Ouverture d'un fichier MED.
subroutine mmhenw(fid, name, numdt, numit, entype, geotype, n, num, cret)
Cette routine permet d'écrire les numéros d'un type d'entité d'un maillage.