35 integer nmaa, mdim ,nnoe,
type,sdim
36 character*16 nomcoo(2)
37 character*16 unicoo(2)
38 character(16) :: dtunit
39 integer nstep, stype, atype,chgt,tsf
44 call mfiope(fid,
'test31.med',med_acc_rdonly, cret)
46 if (cret .ne. 0 )
then
47 print *,
'Erreur ouverture du fichier test31.med'
53 call mmhmii(fid,1,maa,sdim,mdim,
type,des,dtunit,
54 & stype,nstep,atype,nomcoo,unicoo,cret)
56 if (cret .ne. 0 )
then
57 print *,
'Erreur acces au premier maillage'
62 call mmhnme(fid,maa,med_no_dt,med_no_it,med_node,med_none,
63 & med_coordinate,med_no_cmode,chgt,tsf,nnoe,cret)
64 if (cret .ne. 0 )
then
65 print *,
'Erreur acces au nombre de noeud du premier maillage'
70 print
'(A,I1,A,A4,A,I1,A,I4)',
'maillage '
71 & ,0,
' de nom ',maa,
' et de dimension ',mdim,
72 &
' comportant le nombre de noeud ',nnoe
76 call mmhgnr(fid,maa,med_no_dt,med_no_it,med_node,med_none,
79 if (cret .ne. 0 )
then
80 print *,
'Erreur lecture numerotation globale '
89 &
'Numero global du noeud ',i,
' : ',numglb(i)
96 if (cret .ne. 0 )
then
97 print *,
'Erreur fermeture du fichier'