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)
Cette routine permet la création d'une famille portant sur les entités d'un maillage.
subroutine mfiope(fid, name, access, cret)
Ouverture d'un fichier MED.
subroutine mficow(fid, cmt, cret)
Ecriture d'un descripteur dans un fichier MED.
subroutine mficlo(fid, cret)
Fermeture d'un fichier MED.
subroutine mmhcre(fid, name, sdim, mdim, mtype, desc, dtunit, stype, atype, aname, aunit, cret)
Cette routine permet de créer un maillage dans un fichier.
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)