1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
26
27
28 implicit none
29 include 'med.hf'
30
31
32 integer*8 fid
33 integer cret
34 character*64 maa
35 character*200 desc
36 integer nmaa,mdim,type,narr,chgt,tsf
37 integer numglb(100)
38
39
40
41
42
43 call mfiope(fid,
'test31.med',med_acc_rdonly, cret)
44 print '(I1)',cret
45 if (cret .ne. 0 ) then
46 print *,'Erreur ouverture du fichier test31.med'
47 call efexit(-1)
48 endif
49
50
51
52 call mmhnme(fid,
'maa1',med_no_dt,med_no_it,
53 & med_descending_edge,med_seg2,
54 & med_connectivity,med_descending,
55 & chgt,tsf,narr,cret)
56 if (cret .ne. 0 ) then
57 print *,'Erreur acces au nombre d''arretes',
58 & ' du premier maillage'
59 call efexit(-1)
60 endif
61
62
63 print '(A,I1,A,A4,A,I4)','maillage '
64 & ,0,' de nom ','maa1',
65 & ' comportant le nombre d''arretes ',narr
66
67
68
69 call mmhgnr(fid,
'maa1',med_no_dt,med_no_it,med_descending_edge,
70 & med_seg2,numglb,cret)
71
72 if (cret .ge. 0 ) then
73 print '(A)','Erreur lecture numerotation globale ARRETE'
74 print '(A)','cette numerotation devait etre inexistante '
75 call efexit(-1)
76 endif
77 print *,éé"Ce test doit gnrer une erreur."
78
79
81 print '(I1)',cret
82 if (cret .ne. 0 ) then
83 print *,'Erreur fermeture du fichier'
84 call efexit(-1)
85 endif
86
87 end
subroutine mfiope(fid, name, access, cret)
Ouverture d'un fichier MED.
subroutine mficlo(fid, cret)
Fermeture 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 étape de calcul donnée.
subroutine mmhgnr(fid, name, numdt, numit, entype, geotype, num, cret)