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)
subroutine mficlo(fid, cret)
subroutine mmhcre(fid, name, sdim, mdim, mtype, desc, dtunit, stype, atype, aname, aunit, cret)
subroutine mmhelw(fid, name, numdt, numit, dt, entype, geotype, cmode, swm, n, con, iname, nname, inum, num, ifam, fam, cret)