34 integer cret, mdim, nse2, ntr3, sdim
36 parameter(mdim = 2,nse2 = 5,maa =
"maa1", ntr3 = 2, sdim=2)
38 character*16 nomse2(nse2)
39 integer numse2(nse2),nufase2(nse2)
41 character*16 nomtr3(ntr3)
42 integer numtr3(ntr3), nufatr3(ntr3)
43 data se2 /1,2,1,3,2,4,3,4,2,3/
44 data nomse2 /
"se1",
"se2",
"se3",
"se4",
"se5"/
45 data numse2 /1,2,3,4,5/, nufase2 /-1,-1,0,-2,-3/
46 data tr3 /1,2,-5,-5,3,-4/
47 data nomtr3 /
"tr1",
"tr2"/,numtr3/4,5/,nufatr3/0,-1/
48 character*16 nomcoo(2)
49 character*16 unicoo(2)
51 data nomcoo /
"x",
"y"/, unicoo /
"cm",
"cm"/
55 call mfiope(fid,
'test16.med',med_acc_rdwr, cret)
57 if (cret .ne. 0 )
then
58 print *,
'Erreur creation du fichier'
63 call mmhcre(fid,maa,mdim,sdim,med_unstructured_mesh,
64 &
'Un maillage pour test16',
"",
65 & med_sort_dtit,med_cartesian,nomcoo,unicoo,cret)
67 if (cret .ne. 0 )
then
68 print *,
'Erreur creation du maillage'
77 call mmhelw(fid,maa,med_no_dt,med_no_it,dt,med_descending_edge,
78 & med_seg2,med_descending,med_no_interlace,nse2,se2,
79 & med_true,nomse2,med_true,numse2,med_true,nufase2,
82 if (cret .ne. 0 )
then
83 print *,
'Erreur des elements'
92 call mmhelw(fid,maa,med_no_dt,med_no_it,dt,med_cell,
93 & med_tria3,med_descending,med_no_interlace,ntr3,tr3,
94 & med_true,nomtr3,med_true,numtr3,med_true,nufatr3,
97 if (cret .ne. 0 )
then
98 print *,
'Erreur ecriture des elements'
105 if (cret .ne. 0 )
then
106 print *,
'Erreur fermeture du fichier'
subroutine mfiope(fid, name, access, cret)
Ouverture d'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 mmhelw(fid, name, numdt, numit, dt, entype, geotype, cmode, swm, n, con, iname, nname, inum, num, ifam, fam, cret)