34 integer nmaa, mdim , nnoe,
type, ind
39 call efouvr(fid,
'test31.med',med_lecture_ecriture, cret)
41 if (cret .ne. 0 )
then
42 print *,
'Erreur ouverture du fichier test31.med'
49 call efnmaa(fid,nmaa,cret)
51 if (cret .ne. 0 )
then
52 print *,
'Erreur lecture du nombre de maillage'
55 print *,
'Nombre de maillages = ',nmaa
60 call efmaai(fid,ind,maa,mdim,
type,des,cret)
62 if (cret .ne. 0 )
then
63 print *,
'Erreur acces au premier maillage'
68 call efnema(fid,maa,med_coor,med_noeud,0,0,nnoe,cret)
69 if (cret .ne. 0 )
then
70 print *,
'Erreur acces au nombre de noeud du premier maillage'
75 print
'(A,I1,A,A4,A,I1,A,I4)',
'maillage '
76 & ,ind,
' de nom ',maa,
' et de dimension ',mdim,
77 &
' comportant le nombre de noeud ',nnoe
81 if (nnoe.gt.100) nnoe=100
89 call efgnme(fid,maa,numglb,nnoe,med_noeud,0,cret)
91 if (cret .ne. 0 )
then
92 print *,
'Erreur ecriture numerotation globale '
96 call efferm (fid,cret)
98 if (cret .ne. 0 )
then
99 print *,
'Erreur fermeture du fichier'