Aller à la documentation de ce fichier.
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 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 étape de calcul donnée.
subroutine mficlo(fid, cret)
Fermeture d'un fichier MED.
subroutine mfiope(fid, name, access, cret)
Ouverture 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é,...