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