33 integer cret, fid, mdim, nse2, ntr3, sdim
35 parameter(mdim = 2,nse2 = 5,maa =
"maa1", ntr3 = 2, sdim=2)
37 character*16 nomse2(nse2)
38 integer numse2(nse2),nufase2(nse2)
40 character*16 nomtr3(ntr3)
41 integer numtr3(ntr3), nufatr3(ntr3)
42 data se2 /1,2,1,3,2,4,3,4,2,3/
43 data nomse2 /
"se1",
"se2",
"se3",
"se4",
"se5"/
44 data numse2 /1,2,3,4,5/, nufase2 /-1,-1,0,-2,-3/
45 data tr3 /1,2,-5,-5,3,-4/
46 data nomtr3 /
"tr1",
"tr2"/,numtr3/4,5/,nufatr3/0,-1/
47 character*16 nomcoo(2)
48 character*16 unicoo(2)
50 data nomcoo /
"x",
"y"/, unicoo /
"cm",
"cm"/
54 call mfiope(fid,
'test16.med',med_acc_rdwr, cret)
56 if (cret .ne. 0 )
then
57 print *,
'Erreur creation du fichier'
62 call mmhcre(fid,maa,mdim,sdim,med_unstructured_mesh,
63 &
'Un maillage pour test16',
"",
64 & med_sort_dtit,med_cartesian,nomcoo,unicoo,cret)
66 if (cret .ne. 0 )
then
67 print *,
'Erreur creation du maillage'
76 call mmhelw(fid,maa,med_no_dt,med_no_it,dt,med_descending_edge,
77 & med_seg2,med_descending,med_no_interlace,nse2,se2,
78 & med_true,nomse2,med_true,numse2,med_true,nufase2,
81 if (cret .ne. 0 )
then
82 print *,
'Erreur des elements'
91 call mmhelw(fid,maa,med_no_dt,med_no_it,dt,med_cell,
92 & med_tria3,med_descending,med_no_interlace,ntr3,tr3,
93 & med_true,nomtr3,med_true,numtr3,med_true,nufatr3,
96 if (cret .ne. 0 )
then
97 print *,
'Erreur ecriture des elements'
104 if (cret .ne. 0 )
then
105 print *,
'Erreur fermeture du fichier'