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'