33 integer sdim, mdim, stype, mtype, atype, nnode
36 character*200 cmt1,mdesc
39 character*16 nomcoo(2)
40 character*16 unicoo(2)
43 parameter(fname =
"UsesCase_MEDmesh_1.med")
44 parameter(mdesc =
"A 2D unstructured mesh")
45 parameter(cmt1 =
"A 2D unstructured mesh : 15 nodes, 12 cells")
46 parameter(mname =
"2D unstructured mesh")
47 parameter(sdim = 2, mdim = 2, nnode=15)
48 parameter(stype=med_sort_dtit, mtype=med_unstructured_mesh)
49 parameter(atype=med_cartesian)
51 parameter(ntria = 8, nquad = 4)
52 parameter(fnum = 0, ngro = 0)
54 data nomcoo /
"x" ,
"y" /
55 data unicoo /
"cm",
"cm"/
57 data coo /2.,1.,7.,1.,12.,1.,17.,1.,22.,1.,
58 & 2.,6., 7.,6., 12.,6., 17.,6., 22.,6.,
59 & 2.,11., 7.,11., 12.,11., 17.,11., 22.,11./
61 data tricon /1,7,6, 2,7,1, 3,7,2, 8,7,3,
62 & 13,7,8, 12,7,13, 11,7,12, 6,7,11/
64 data quacon /3,4,9,8, 4,5,10,9,
65 & 15,14,9,10, 13,8,9,14 /
69 call mfiope(fid,fname,med_acc_creat,cret)
70 if (cret .ne. 0 )
then 71 print *,
'ERROR : file creation' 78 if (cret .ne. 0 )
then 79 print *,
'ERROR : write file description' 85 call mmhcre(fid, mname, sdim, mdim, mtype,mdesc,
86 & dtunit, stype, atype, nomcoo, unicoo, cret)
87 if (cret .ne. 0 )
then 88 print *,
'ERROR : mesh creation' 94 call mmhcow(fid,mname,med_no_dt,med_no_it,dt,
95 & med_full_interlace,nnode,coo,cret)
96 if (cret .ne. 0 )
then 97 print *,
'ERROR : write nodes coordinates description' 104 call mmhcyw(fid,mname,med_no_dt,med_no_it,dt,med_cell,
105 & med_tria3,med_nodal,med_full_interlace,
108 if (cret .ne. 0 )
then 109 print *,
'ERROR : triangular cells connectivity' 113 call mmhcyw(fid,mname,med_no_dt,med_no_it,dt,med_cell,
114 & med_quad4,med_nodal,med_full_interlace,
117 if (cret .ne. 0 )
then 118 print *,
'ERROR : quadrangular cells connectivity' 124 call mfacre(fid,mname,med_no_name,fnum,ngro,med_no_group,cret)
126 if (cret .ne. 0 )
then 127 print *,
'ERROR : family 0 creation' 134 if (cret .ne. 0 )
then 135 print *,
'ERROR : close file' subroutine mficlo(fid, cret)
subroutine mficow(fid, cmt, cret)
subroutine mmhcow(fid, name, numdt, numit, dt, swm, n, coo, 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)
program usescase_medmesh_1
subroutine mfacre(fid, name, fname, fnum, ngro, gname, cret)
subroutine mfiope(fid, name, access, cret)