45 character*16 axname(2), unname(2)
47 character*64 mname, finame
56 character*200 cmt1, mdesc
58 parameter(sdim = 2, mdim = 2)
59 parameter(mname =
"2D unstructured mesh")
60 parameter(dtunit =
"")
61 parameter(finame =
"UsesCase_MEDmesh_13.med")
63 parameter(nnodes = 10)
65 parameter(cmt1 =
"A 2D unstructured mesh : 10 nodes, 2 polygons")
66 parameter(mdesc =
"A 2D mesh with 2 polygons")
68 data axname /
"x ",
"y "/
69 data unname /
"cm ",
"cm "/
70 data coords / 0.5, 0.,
80 data index / 1, 7, 13 /
81 data conity / 1,4,7,9,6,3,
86 call mfiope(fid,finame,med_acc_creat,cret)
87 if (cret .ne. 0 )
then
88 print *,
'ERROR : file creation'
95 if (cret .ne. 0 )
then
96 print *,
'ERROR : write file description'
102 call mmhcre(fid, mname, sdim, mdim, med_unstructured_mesh, mdesc,
103 & dtunit, med_sort_dtit, med_cartesian,
104 & axname, unname, cret)
105 if (cret .ne. 0 )
then
106 print *,
'ERROR : mesh creation'
113 call mmhcow(fid,mname,med_no_dt,med_no_it, med_undef_dt,
114 & med_full_interlace,nnodes,coords,cret)
115 if (cret .ne. 0 )
then
116 print *,
'ERROR : write nodes coordinates description'
123 call mmhpgw(fid, mname, med_no_dt, med_no_it, med_undef_dt,
124 & med_cell, med_nodal, isize, index, conity, cret)
125 if (cret .ne. 0 )
then
126 print *,
'ERROR : polygon connectivity ...'
132 call mfacre(fid,mname,med_no_name,0,0,med_no_group,cret)
133 if (cret .ne. 0 )
then
134 print *,
'ERROR : create family 0'
141 if (cret .ne. 0 )
then
142 print *,
'ERROR : close file'
subroutine mfacre(fid, name, fname, fnum, ngro, gname, cret)
Cette routine permet la création d'une famille portant sur les entités d'un maillage.
program usescase_medmesh_13
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 mficow(fid, cmt, cret)
Ecriture d'un descripteur dans 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 mmhcow(fid, name, numdt, numit, dt, swm, n, coo, cret)
Cette routine permet d'écrire dans un maillage le tableau des coordonnées des noeuds, selon une séquence de calcul donnée.