33 integer cret, fid, mdim, nse2, ntr3
35 parameter(mdim = 2,nse2 = 5,maa =
"maa1", ntr3 = 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/
49 call efouvr(fid,
'test16.med',med_lecture_ecriture, cret)
51 if (cret .ne. 0 )
then
52 print *,
'Erreur creation du fichier'
57 call efmaac(fid,maa,mdim,med_non_structure,
58 c
'Un maillage pour test16',cret)
60 if (cret .ne. 0 )
then
61 print *,
'Erreur creation du maillage'
70 call efelee(fid,maa,mdim,se2,med_no_interlace,
71 c nomse2,med_vrai,numse2,med_vrai,
72 c nufase2,nse2,med_arete,med_seg2,med_desc,cret)
74 if (cret .ne. 0 )
then
75 print *,
'Erreur des elements'
84 call efelee(fid,maa,mdim,tr3,med_no_interlace,
85 c nomtr3,med_vrai,numtr3,med_vrai,
86 c nufatr3,ntr3,med_maille,med_tria3,med_desc,cret)
88 if (cret .ne. 0 )
then
89 print *,
'Erreur ecriture des elements'
94 call efferm (fid,cret)
96 if (cret .ne. 0 )
then
97 print *,
'Erreur fermeture du fichier'