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'