34 integer sdim, mdim, stype, mtype, atype, nnode
37 character*200 cmt1,mdesc
40 character*16 nomcoo(2)
41 character*16 unicoo(2)
44 parameter(fname =
"UsesCase_MEDmesh_1.med")
45 parameter(mdesc =
"A 2D unstructured mesh")
46 parameter(cmt1 =
"A 2D unstructured mesh : 15 nodes, 12 cells")
47 parameter(mname =
"2D unstructured mesh")
48 parameter(sdim = 2, mdim = 2, nnode=15)
49 parameter(stype=med_sort_dtit, mtype=med_unstructured_mesh)
50 parameter(atype=med_cartesian)
52 parameter(ntria = 8, nquad = 4)
53 parameter(fnum = 0, ngro = 0)
55 data nomcoo /
"x" ,
"y" /
56 data unicoo /
"cm",
"cm"/
58 data coo /2.,1.,7.,1.,12.,1.,17.,1.,22.,1.,
59 & 2.,6., 7.,6., 12.,6., 17.,6., 22.,6.,
60 & 2.,11., 7.,11., 12.,11., 17.,11., 22.,11./
62 data tricon /1,7,6, 2,7,1, 3,7,2, 8,7,3,
63 & 13,7,8, 12,7,13, 11,7,12, 6,7,11/
65 data quacon /3,4,9,8, 4,5,10,9,
66 & 15,14,9,10, 13,8,9,14 /
70 call mfiope(fid,fname,med_acc_creat,cret)
71 if (cret .ne. 0 )
then
72 print *,
'ERROR : file creation'
79 if (cret .ne. 0 )
then
80 print *,
'ERROR : write file description'
86 call mmhcre(fid, mname, sdim, mdim, mtype,mdesc,
87 & dtunit, stype, atype, nomcoo, unicoo, cret)
88 if (cret .ne. 0 )
then
89 print *,
'ERROR : mesh creation'
95 call mmhcow(fid,mname,med_no_dt,med_no_it,dt,
96 & med_full_interlace,nnode,coo,cret)
97 if (cret .ne. 0 )
then
98 print *,
'ERROR : write nodes coordinates description'
105 call mmhcyw(fid,mname,med_no_dt,med_no_it,dt,med_cell,
106 & med_tria3,med_nodal,med_full_interlace,
109 if (cret .ne. 0 )
then
110 print *,
'ERROR : triangular cells connectivity'
114 call mmhcyw(fid,mname,med_no_dt,med_no_it,dt,med_cell,
115 & med_quad4,med_nodal,med_full_interlace,
118 if (cret .ne. 0 )
then
119 print *,
'ERROR : quadrangular cells connectivity'
125 call mfacre(fid,mname,med_no_name,fnum,ngro,med_no_group,cret)
127 if (cret .ne. 0 )
then
128 print *,
'ERROR : family 0 creation'
135 if (cret .ne. 0 )
then
136 print *,
'ERROR : close file'
program usescase_medmesh_1
subroutine mfacre(fid, name, fname, fnum, ngro, gname, cret)
subroutine mfiope(fid, name, access, cret)
subroutine mficow(fid, cmt, cret)
subroutine mficlo(fid, cret)
subroutine mmhcre(fid, name, sdim, mdim, mtype, desc, dtunit, stype, atype, aname, aunit, cret)
subroutine mmhcyw(fid, name, numdt, numit, dt, entype, geotype, cmode, swm, n, con, cret)
subroutine mmhcow(fid, name, numdt, numit, dt, swm, n, coo, cret)