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'