30 character*16 edtuni,dtunit1
31 character*64 nom1, nom2
32 character*200 desc1, desc2
36 parameter(nom1=
"VariableEntiere")
37 parameter(nom2=
"VariableFlottante")
38 data desc1 /
"Une premiere description" /
39 data desc2 /
"Une seconde description" /
40 parameter(vali1 = 56,vali2 = -789)
41 parameter(valr1 = 67.98d0)
49 call mfiope(fid,
'test21.med',med_acc_rdwr, cret)
51 if (cret .ne. 0 )
then
52 print *,
'Erreur creation du fichier'
55 print *,
'Creation du fichier test21.med'
62 if (cret .ne. 0 )
then
63 print *,
'Erreur creation variable scalaire'
66 print *,
'Creation d une variable scalaire entiere'
70 call mprivw(fid,nom1,med_no_dt,med_no_it,med_undef_dt,
73 if (cret .ne. 0 )
then
74 print *,
'Erreur ecriture valeur scalaire'
77 print *,
'Ecriture valeur entiere sans pas de temps'
82 call mprivw(fid,nom1,1,med_no_it,dt,vali2,cret)
84 if (cret .ne. 0 )
then
85 print *,
'Erreur ecriture valeur scalaire'
88 print *,
'Ecriture valeur entiere avec pas de temps'
92 call mprcre(fid,nom2,med_float64,desc2,dtunit1,
95 if (cret .ne. 0 )
then
96 print *,
'Erreur creation variable sclaire'
99 print *,
'Creation d une variable scalaire flottante'
103 call mprrvw(fid,nom2,1,2,dt,valr1,cret)
105 if (cret .ne. 0 )
then
106 print *,
'Erreur ecriture valeur scalaire'
109 print *,
'Ecriture valeur entiere avec pas de temps'
114 if (cret .ne. 0 )
then
115 print *,
'Erreur fermeture du fichier'
119 print *,
'Fermeture du fichier test21.med'