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' 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)
program usescase_medmesh_1
subroutine mmhcow(fid, name, numdt, numit, dt, swm, n, coo, cret)
subroutine mficow(fid, cmt, cret)
subroutine mmhcyw(fid, name, numdt, numit, dt, entype, geotype, cmode, swm, n, con, cret)
subroutine mficlo(fid, cret)