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