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' subroutine mficlo(fid, cret)
subroutine mmhmii(fid, it, name, sdim, mdim, mtype, desc, dtunit, stype, nstep, atype, aname, aunit, cret)
subroutine mmhnme(fid, name, numdt, numit, entype, geotype, datype, cmode, chgt, tsf, n, cret)
subroutine mmhgnr(fid, name, numdt, numit, entype, geotype, num, cret)
subroutine mfiope(fid, name, access, cret)