1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
25
26 implicit none
27 include 'med.hf'
28
29 integer*8 fid
30 integer cret
31 character*16 edtuni,dtunit1
32 character*64 nom1, nom2
33 character*200 desc1, desc2
34 integer vali1, vali2
35 real*8 valr1,dt
36
37 parameter(nom1="VariableEntiere")
38 parameter(nom2="VariableFlottante")
39 data desc1 / "Une premiere description" /
40 data desc2 / "Une seconde description" /
41 parameter(vali1 = 56,vali2 = -789)
42 parameter(valr1 = 67.98d0)
43
44 parameter(edtuni=" "
45 1 ,dtunit1="ms")
46
47
48
49
50 call mfiope(fid,
'test21.med',med_acc_rdwr, cret)
51 print *,cret
52 if (cret .ne. 0 ) then
53 print *,'Erreur creation du fichier'
54 call efexit(-1)
55 endif
56 print *,'Creation du fichier test21.med'
57
58
59
61 & cret)
62 print *,cret
63 if (cret .ne. 0 ) then
64 print *,'Erreur creation variable scalaire'
65 call efexit(-1)
66 endif
67 print *,'Creation d une variable scalaire entiere'
68
69
70
71 call mprivw(fid,nom1,med_no_dt,med_no_it,med_undef_dt,
72 & vali1,cret)
73 print *,cret
74 if (cret .ne. 0 ) then
75 print *,'Erreur ecriture valeur scalaire'
76 call efexit(-1)
77 endif
78 print *,'Ecriture valeur entiere sans pas de temps'
79
80
81
82 dt = 5.5d0
83 call mprivw(fid,nom1,1,med_no_it,dt,vali2,cret)
84 print *,cret
85 if (cret .ne. 0 ) then
86 print *,'Erreur ecriture valeur scalaire'
87 call efexit(-1)
88 endif
89 print *,'Ecriture valeur entiere avec pas de temps'
90
91
92
94 & cret)
95 print *,cret
96 if (cret .ne. 0 ) then
97 print *,'Erreur creation variable sclaire'
98 call efexit(-1)
99 endif
100 print *,'Creation d une variable scalaire flottante'
101
102
103
104 call mprrvw(fid,nom2,1,2,dt,valr1,cret)
105 print *,cret
106 if (cret .ne. 0 ) then
107 print *,'Erreur ecriture valeur scalaire'
108 call efexit(-1)
109 endif
110 print *,'Ecriture valeur entiere avec pas de temps'
111
112
113
115 if (cret .ne. 0 ) then
116 print *,'Erreur fermeture du fichier'
117 call efexit(-1)
118 endif
119 print *,cret
120 print *,'Fermeture du fichier test21.med'
121
122 end
123
subroutine mfiope(fid, name, access, cret)
subroutine mficlo(fid, cret)
subroutine mprrvw(fid, name, numdt, numit, dt, val, cret)
subroutine mprcre(fid, name, type, des, dtunit, cret)
subroutine mprivw(fid, name, numdt, numit, dt, val, cret)