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'
subroutine mficlo(fid, cret)
Fermeture d'un fichier MED.
subroutine mmhmii(fid, it, name, sdim, mdim, mtype, desc, dtunit, stype, nstep, atype, aname, aunit, cret)
Cette routine permet de lire les informations relatives à un maillage dans un fichier.
subroutine mmhgnr(fid, name, numdt, numit, entype, geotype, num, cret)
Cette routine permet la lecture d'une numérotation globale sur un maillage pour un type d'entité...
subroutine mfiope(fid, name, access, cret)
Ouverture d'un fichier MED.
subroutine mmhnme(fid, name, numdt, numit, entype, geotype, datype, cmode, chgt, tsf, n, cret)
Cette routine permet de lire le nombre d'entités dans un maillage pour une séquence de calcul donnée...