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 implicit none
28 include 'med.hf'
29
30
31 integer*8 fid
32
33 integer cret
34 integer maj,min,rel
35 integer hdfok, medok
36
37
38 call mfiope(fid,
'test18.med',med_acc_rdwr, cret)
39 print *,cret
40 if (cret .ne. 0 ) then
41 print *,'Erreur creation du fichier'
42 call efexit(-1)
43 endif
44 print *,'- Creation du fichier'
45
46
48 print *,cret
49 if (cret .ne. 0 ) then
50 print *,'Erreur fermeture du fichier'
51 call efexit(-1)
52 endif
53 print *,'- Fermeture du fichier'
54
55
56 call mlbnuv(maj,min,rel,cret)
57 print *,cret
58 if (cret .ne. 0 ) then
59 print *,'Erreur lecture version med'
60 call efexit(-1)
61 endif
62 print *,'- Version MED utilisee : ',maj,'.',min,'.',rel
63
64
65 call mficom(
'test18.med',hdfok, medok,cret)
66 print *,cret
67 if (hdfok .eq. 1) then
68 print *,'- Format HDF conforme'
69 else
70 print *,'- Format HDF non conforme'
71 call efexit(-1)
72 endif
73 if (medok .eq. 1) then
74 print *,'- Version MED du fichier conforme'
75 else
76 print *,'- Version MED du fichier non conforme'
77 call efexit(-1)
78 endif
79
80
81 call mfiope(fid,
'test18.med',med_acc_rdonly, cret)
82 if (cret .ne. 0 ) then
83 print *,'Erreur ouverture du fichier'
84 call efexit(-1)
85 endif
86 print *,'- Ouverture du fichier'
87
88
89 call mfinvr(fid,maj,min,rel,cret)
90 if (cret .ne. 0 ) then
91 print *,'Erreur lecture version med du fichier'
92 call efexit(-1)
93 endif
94 print *,cret
95 print *,'- Fichier cree avec MED V',maj,'.',min,'.',rel
96
97
99 print *,cret
100 if (cret .ne. 0 ) then
101 print *,'Erreur fermeture du fichier'
102 call efexit(-1)
103 endif
104 print *,'- Fermeture du fichier'
105
106 end
107
108
subroutine mfinvr(fid, major, minor, rel, cret)
subroutine mfiope(fid, name, access, cret)
subroutine mficlo(fid, cret)
subroutine mficom(fname, hdfok, medok, cret)
subroutine mlbnuv(major, minor, rel, cret)