32 integer mdim,nse2,ntr3
33 parameter(nse2 = 5, ntr3 = 2, mdim = 2)
35 character*16 nomse2(nse2)
36 integer numse2(nse2),nufase2(nse2)
39 character*16 nomtr3(ntr3)
40 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 /, nomtr3 /
"tr1",
"tr2"/,
48 data nufatr3 /0,-1/, maa /
"maa1"/
51 call efouvr(fid,
'test6.med',med_lecture_ecriture, cret)
53 if (cret .ne. 0 )
then
54 print *,
'Erreur creation du fichier'
59 call efmaac(fid,maa,mdim,med_non_structure,
60 &
'un maillage pour test6',cret)
62 if (cret .ne. 0 )
then
63 print *,
'Erreur creation du maillage'
68 call efcone(fid,maa,mdim,se2,med_no_interlace,
70 & med_seg2,med_desc,cret )
72 if (cret .ne. 0 )
then
73 print *,
'Erreur ecriture de la connectivite'
78 call efnome(fid,maa,nomse2,nse2,med_arete,
81 if (cret .ne. 0 )
then
82 print *,
'Erreur ecriture des noms'
87 call efnume(fid,maa,numse2,nse2,
88 & med_arete ,med_seg2,cret)
90 if (cret .ne. 0 )
then
91 print *,
'Erreur ecriture des numeros'
96 call effame(fid,maa,nufase2,nse2,
97 & med_arete,med_seg2,cret)
99 if (cret .ne. 0 )
then
100 print *,
'Erreur ecriture des numéros de famille'
105 call efcone(fid,maa,mdim,tr3,med_no_interlace,
107 & med_tria3,med_desc,cret )
109 if (cret .ne. 0 )
then
110 print *,
'Erreur ecriture de la connectivite'
115 call efnome(fid,maa,nomtr3,ntr3,med_maille,
118 if (cret .ne. 0 )
then
119 print *,
'Erreur ecriture des noms'
124 call efnume(fid,maa,numtr3,ntr3,med_maille,
127 if (cret .ne. 0 )
then
128 print *,
'Erreur ecriture des numeros'
133 call effame(fid,maa,nufatr3,ntr3,med_maille,
136 if (cret .ne. 0 )
then
137 print *,
'Erreur ecriture des numeros de famille'
142 call efferm (fid,cret)
144 if (cret .ne. 0 )
then
145 print *,
'Erreur a la fermeture du fichier'