33 integer mdim,nse2,ntr3
34 parameter(nse2 = 5, ntr3 = 2, mdim = 2)
36 character*16 nomse2(nse2)
37 integer numse2(nse2),nufase2(nse2)
40 character*16 nomtr3(ntr3)
41 integer numtr3(ntr3), nufatr3(ntr3)
44 data se2 / 1,2,1,3,2,4,3,4,2,3 /
45 data nomse2 /
"se1",
"se2",
"se3",
"se4",
"se5" /
46 data numse2 / 1,2,3,4,5 /, nufase2 /-1,-1,0,-2,-3/
47 data tr3 /1,2,-5,-5,3,-4 /, nomtr3 /
"tr1",
"tr2"/,
49 data nufatr3 /0,-1/, maa /
"maa1"/
52 call efouvr(fid,
'test6.med',med_lecture_ecriture, cret)
54 if (cret .ne. 0 )
then 55 print *,
'Erreur creation du fichier' 60 call efmaac(fid,maa,mdim,med_non_structure,
61 &
'un maillage pour test6',cret)
63 if (cret .ne. 0 )
then 64 print *,
'Erreur creation du maillage' 69 call efcone(fid,maa,mdim,se2,med_no_interlace,
71 & med_seg2,med_desc,cret )
73 if (cret .ne. 0 )
then 74 print *,
'Erreur ecriture de la connectivite' 79 call efnome(fid,maa,nomse2,nse2,med_arete,
82 if (cret .ne. 0 )
then 83 print *,
'Erreur ecriture des noms' 88 call efnume(fid,maa,numse2,nse2,
89 & med_arete ,med_seg2,cret)
91 if (cret .ne. 0 )
then 92 print *,
'Erreur ecriture des numeros' 97 call effame(fid,maa,nufase2,nse2,
98 & med_arete,med_seg2,cret)
100 if (cret .ne. 0 )
then 101 print *,
'Erreur ecriture des numéros de famille' 106 call efcone(fid,maa,mdim,tr3,med_no_interlace,
108 & med_tria3,med_desc,cret )
110 if (cret .ne. 0 )
then 111 print *,
'Erreur ecriture de la connectivite' 116 call efnome(fid,maa,nomtr3,ntr3,med_maille,
119 if (cret .ne. 0 )
then 120 print *,
'Erreur ecriture des noms' 125 call efnume(fid,maa,numtr3,ntr3,med_maille,
128 if (cret .ne. 0 )
then 129 print *,
'Erreur ecriture des numeros' 134 call effame(fid,maa,nufatr3,ntr3,med_maille,
137 if (cret .ne. 0 )
then 138 print *,
'Erreur ecriture des numeros de famille' 143 call efferm (fid,cret)
145 if (cret .ne. 0 )
then 146 print *,
'Erreur a la fermeture du fichier'