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'