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 mmhnme(fid, name, numdt, numit, entype, geotype, datype, cmode, chgt, tsf, n, cret)
subroutine mfiope(fid, name, access, cret)
subroutine mmhgnr(fid, name, numdt, numit, entype, geotype, num, cret)
subroutine mficlo(fid, cret)