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'