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 mficlo(fid, cret)
subroutine mficow(fid, cmt, cret)
subroutine mmhcow(fid, name, numdt, numit, dt, swm, n, coo, cret)
program usescase_medmesh_13
subroutine mmhpgw(fid, name, numdt, numit, dt, entype, cmode, isize, index, con, cret)
subroutine mmhcre(fid, name, sdim, mdim, mtype, desc, dtunit, stype, atype, aname, aunit, cret)
subroutine mfacre(fid, name, fname, fnum, ngro, gname, cret)
subroutine mfiope(fid, name, access, cret)