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