35 integer nmaa, mdim , nnoe,
type, ind
40 call efouvr(fid,
'test31.med',med_lecture_ecriture, cret)
42 if (cret .ne. 0 )
then 43 print *,
'Erreur ouverture du fichier test31.med' 50 call efnmaa(fid,nmaa,cret)
52 if (cret .ne. 0 )
then 53 print *,
'Erreur lecture du nombre de maillage' 56 print *,
'Nombre de maillages = ',nmaa
61 call efmaai(fid,ind,maa,mdim,
type,des,cret)
63 if (cret .ne. 0 )
then 64 print *,
'Erreur acces au premier maillage' 69 call efnema(fid,maa,med_coor,med_noeud,0,0,nnoe,cret)
70 if (cret .ne. 0 )
then 71 print *,
'Erreur acces au nombre de noeud du premier maillage' 76 print
'(A,I1,A,A4,A,I1,A,I4)',
'maillage ' 77 & ,ind,
' de nom ',maa,
' et de dimension ',mdim,
78 &
' comportant le nombre de noeud ',nnoe
82 if (nnoe.gt.100) nnoe=100
90 call efgnme(fid,maa,numglb,nnoe,med_noeud,0,cret)
92 if (cret .ne. 0 )
then 93 print *,
'Erreur ecriture numerotation globale ' 97 call efferm (fid,cret)
99 if (cret .ne. 0 )
then 100 print *,
'Erreur fermeture du fichier'