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,I4)',
'maillage '
63 & ,0,
' de nom ',
'maa1',
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'