46 character*16 axname(2), unname(2)
48 character*64 mname, finame
57 character*200 cmt1, mdesc
59 parameter(sdim = 2, mdim = 2)
60 parameter(mname =
"2D unstructured mesh")
61 parameter(dtunit =
"")
62 parameter(finame =
"UsesCase_MEDmesh_13.med")
64 parameter(nnodes = 10)
66 parameter(cmt1 =
"A 2D unstructured mesh : 10 nodes, 2 polygons")
67 parameter(mdesc =
"A 2D mesh with 2 polygons")
69 data axname /
"x ",
"y "/
70 data unname /
"cm ",
"cm "/
71 data coords / 0.5, 0.,
81 data index / 1, 7, 13 /
82 data conity / 1,4,7,9,6,3,
87 call mfiope(fid,finame,med_acc_creat,cret)
88 if (cret .ne. 0 )
then
89 print *,
'ERROR : file creation'
96 if (cret .ne. 0 )
then
97 print *,
'ERROR : write file description'
103 call mmhcre(fid, mname, sdim, mdim, med_unstructured_mesh, mdesc,
104 & dtunit, med_sort_dtit, med_cartesian,
105 & axname, unname, cret)
106 if (cret .ne. 0 )
then
107 print *,
'ERROR : mesh creation'
114 call mmhcow(fid,mname,med_no_dt,med_no_it, med_undef_dt,
115 & med_full_interlace,nnodes,coords,cret)
116 if (cret .ne. 0 )
then
117 print *,
'ERROR : write nodes coordinates description'
124 call mmhpgw(fid, mname, med_no_dt, med_no_it, med_undef_dt,
125 & med_cell, med_nodal, isize, index, conity, cret)
126 if (cret .ne. 0 )
then
127 print *,
'ERROR : polygon connectivity ...'
133 call mfacre(fid,mname,med_no_name,0,0,med_no_group,cret)
134 if (cret .ne. 0 )
then
135 print *,
'ERROR : create family 0'
142 if (cret .ne. 0 )
then
143 print *,
'ERROR : close file'
program usescase_medmesh_13
subroutine mmhpgw(fid, name, numdt, numit, dt, entype, cmode, isize, index, con, cret)
subroutine mmhcow(fid, name, numdt, numit, dt, swm, n, coo, cret)
subroutine mfacre(fid, name, fname, fnum, ngro, gname, cret)
subroutine mfiope(fid, name, access, cret)
subroutine mmhcre(fid, name, sdim, mdim, mtype, desc, dtunit, stype, atype, aname, aunit, cret)
subroutine mficow(fid, cmt, cret)
subroutine mficlo(fid, cret)