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'