34 integer cret, mdim, nse2, ntr3
36 parameter(mdim = 2,nse2 = 5,maa =
"maa1", ntr3 = 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/
50 call efouvr(fid,
'test16.med',med_lecture_ecriture, cret)
52 if (cret .ne. 0 )
then
53 print *,
'Erreur creation du fichier'
58 call efmaac(fid,maa,mdim,med_non_structure,
59 c
'Un maillage pour test16',cret)
61 if (cret .ne. 0 )
then
62 print *,
'Erreur creation du maillage'
71 call efelee(fid,maa,mdim,se2,med_no_interlace,
72 c nomse2,med_vrai,numse2,med_vrai,
73 c nufase2,nse2,med_arete,med_seg2,med_desc,cret)
75 if (cret .ne. 0 )
then
76 print *,
'Erreur des elements'
85 call efelee(fid,maa,mdim,tr3,med_no_interlace,
86 c nomtr3,med_vrai,numtr3,med_vrai,
87 c nufatr3,ntr3,med_maille,med_tria3,med_desc,cret)
89 if (cret .ne. 0 )
then
90 print *,
'Erreur ecriture des elements'
95 call efferm (fid,cret)
97 if (cret .ne. 0 )
then
98 print *,
'Erreur fermeture du fichier'