Aller à la documentation de ce fichier.
36 integer nmaa,mdim,
type,narr,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 mmhnme(fid,
'maa1',med_no_dt,med_no_it,
53 & med_descending_edge,med_seg2,
54 & med_connectivity,med_descending,
56 if (cret .ne. 0 )
then
57 print *,
'Erreur acces au nombre d''arretes',
58 &
' du premier maillage'
63 print
'(A,I1,A,A4,A,I4)',
'maillage '
64 & ,0,
' de nom ',
'maa1',
65 &
' comportant le nombre d''arretes ',narr
69 call mmhgnr(fid,
'maa1',med_no_dt,med_no_it,med_descending_edge,
70 & med_seg2,numglb,cret)
72 if (cret .ge. 0 )
then
73 print
'(A)',
'Erreur lecture numerotation globale ARRETE'
74 print
'(A)',
'cette numerotation devait etre inexistante '
77 print *,
"Ce test doit générer une erreur."
82 if (cret .ne. 0 )
then
83 print *,
'Erreur fermeture du 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 mficlo(fid, cret)
Fermeture 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 étape de calcul donnée.
subroutine mfiope(fid, name, access, cret)
Ouverture d'un fichier MED.