35 integer nmaa,mdim,
type,narr,chgt,tsf
42 call mfiope(fid,
'test31.med',med_acc_rdonly, cret)
44 if (cret .ne. 0 )
then
45 print *,
'Erreur ouverture du fichier test31.med'
51 call mmhnme(fid,
'maa1',med_no_dt,med_no_it,
52 & med_descending_edge,med_seg2,
53 & med_connectivity,med_descending,
55 if (cret .ne. 0 )
then
56 print *,
'Erreur acces au nombre d''arretes',
57 &
' du premier maillage'
62 print
'(A,I1,A,A4,A,I1,A,I4)',
'maillage '
63 & ,0,
' de nom ',
'maa1',
' et de dimension ',mdim,
64 &
' comportant le nombre d''arretes ',narr
68 call mmhgnr(fid,
'maa1',med_no_dt,med_no_it,med_descending_edge,
69 & med_seg2,numglb,cret)
71 if (cret .ge. 0 )
then
72 print
'(A)',
'Erreur lecture numerotation globale ARRETE'
73 print
'(A)',
'cette numerotation devait etre inexistante '
76 print *,
"Ce test doit générer une erreur."
81 if (cret .ne. 0 )
then
82 print *,
'Erreur fermeture du fichier'
subroutine mficlo(fid, cret)
Fermeture d'un fichier MED.
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...