Aller à la documentation de ce fichier.
46 character*16 axname(2), unname(2)
48 character*64 mname, finame
57 character*200 cmt1, mdesc
59 parameter(sdim = 2, mdim = 2)
60 parameter(mname =
"2D unstructured mesh")
61 parameter(dtunit =
"")
62 parameter(finame =
"UsesCase_MEDmesh_13.med")
64 parameter(nnodes = 10)
66 parameter(cmt1 =
"A 2D unstructured mesh : 10 nodes, 2 polygons")
67 parameter(mdesc =
"A 2D mesh with 2 polygons")
69 data axname /
"x ",
"y "/
70 data unname /
"cm ",
"cm "/
71 data coords / 0.5, 0.,
81 data index / 1, 7, 13 /
82 data conity / 1,4,7,9,6,3,
87 call mfiope(fid,finame,med_acc_creat,cret)
88 if (cret .ne. 0 )
then
89 print *,
'ERROR : file creation'
96 if (cret .ne. 0 )
then
97 print *,
'ERROR : write file description'
103 call mmhcre(fid, mname, sdim, mdim, med_unstructured_mesh, mdesc,
104 & dtunit, med_sort_dtit, med_cartesian,
105 & axname, unname, cret)
106 if (cret .ne. 0 )
then
107 print *,
'ERROR : mesh creation'
114 call mmhcow(fid,mname,med_no_dt,med_no_it, med_undef_dt,
115 & med_full_interlace,nnodes,coords,cret)
116 if (cret .ne. 0 )
then
117 print *,
'ERROR : write nodes coordinates description'
124 call mmhpgw(fid, mname, med_no_dt, med_no_it, med_undef_dt,
125 & med_cell, med_nodal, isize, index, conity, cret)
126 if (cret .ne. 0 )
then
127 print *,
'ERROR : polygon connectivity ...'
133 call mfacre(fid,mname,med_no_name,0,0,med_no_group,cret)
134 if (cret .ne. 0 )
then
135 print *,
'ERROR : create family 0'
142 if (cret .ne. 0 )
then
143 print *,
'ERROR : close file'
subroutine mmhpgw(fid, name, numdt, numit, dt, entype, cmode, isize, index, con, cret)
Cette routine permet l'écriture des connectivités de polygones.
program usescase_medmesh_13
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 mficow(fid, cmt, cret)
Ecriture d'un descripteur dans un fichier MED.
subroutine mficlo(fid, cret)
Fermeture d'un fichier MED.
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 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,...
subroutine mfiope(fid, name, access, cret)
Ouverture d'un fichier MED.