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 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 mficlo(fid, cret)
Fermeture d'un fichier MED.
subroutine mficow(fid, cmt, cret)
Ecriture d'un descripteur dans 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.
program usescase_medmesh_1
subroutine mmhcyw(fid, name, numdt, numit, dt, entype, geotype, cmode, swm, n, con, cret)
Cette routine permet d'écrire dans un maillage le tableau des connectivités pour un type géométrique ...
subroutine mfiope(fid, name, access, cret)
Ouverture d'un fichier MED.
subroutine mmhcow(fid, name, numdt, numit, dt, swm, n, coo, cret)
Cette routine permet d'écrire dans un maillage le tableau des coordonnées des noeuds, selon une séquence de calcul donnée.