35 integer nmaa,mdim,
type,narr
42 call efouvr(fid,
'test31.med',med_lecture, cret)
44 if (cret .ne. 0 )
then
45 print *,
'Erreur ouverture du fichier test31.med'
52 call efnmaa(fid,nmaa,cret)
54 if (cret .ne. 0 )
then
55 print *,
'Erreur lecture du nombre de maillage'
58 print
'(A,I2)',
'Nombre de maillages = ',nmaa
63 call efmaai(fid,1,maa,mdim,
type,desc,cret)
65 if (cret .ne. 0 )
then
66 print *,
'Erreur acces au premier maillage'
70 call efnema(fid,maa,med_conn,med_arete,med_seg2,med_desc
72 if (cret .ne. 0 )
then
73 print *,
'Erreur acces au nombre d''arretes',
74 &
' du premier maillage'
79 print
'(A,I1,A,A4,A,I1,A,I4)',
'maillage '
80 & ,0,
' de nom ',maa,
' et de dimension ',mdim,
81 &
' comportant le nombre d''arretes ',narr
86 call efgnml(fid,maa,numglb,max(narr,100),
87 & med_arete,med_tria3,cret)
89 if (cret .ge. 0 )
then
90 print
'(A)',
'Erreur lecture numerotation globale ARRETE'
91 print
'(A)',
'cette numerotation devait etre inexistante '
97 call efferm (fid,cret)
99 if (cret .ne. 0 )
then
100 print *,
'Erreur fermeture du fichier'