36 integer nmaa,mdim,
type,narr
43 call efouvr(fid,
'test31.med',med_lecture, cret)
45 if (cret .ne. 0 )
then
46 print *,
'Erreur ouverture du fichier test31.med'
53 call efnmaa(fid,nmaa,cret)
55 if (cret .ne. 0 )
then
56 print *,
'Erreur lecture du nombre de maillage'
59 print
'(A,I2)',
'Nombre de maillages = ',nmaa
64 call efmaai(fid,1,maa,mdim,
type,desc,cret)
66 if (cret .ne. 0 )
then
67 print *,
'Erreur acces au premier maillage'
71 call efnema(fid,maa,med_conn,med_arete,med_seg2,med_desc
73 if (cret .ne. 0 )
then
74 print *,
'Erreur acces au nombre d''arretes',
75 &
' du premier maillage'
80 print
'(A,I1,A,A4,A,I1,A,I4)',
'maillage '
81 & ,0,
' de nom ',maa,
' et de dimension ',mdim,
82 &
' comportant le nombre d''arretes ',narr
87 call efgnml(fid,maa,numglb,max(narr,100),
88 & med_arete,med_tria3,cret)
90 if (cret .ge. 0 )
then
91 print
'(A)',
'Erreur lecture numerotation globale ARRETE'
92 print
'(A)',
'cette numerotation devait etre inexistante '
98 call efferm (fid,cret)
100 if (cret .ne. 0 )
then
101 print *,
'Erreur fermeture du fichier'