31 character*16 edtuni,dtunit1
32 character*64 nom1, nom2
33 character*200 desc1, desc2
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)
50 call mfiope(fid,
'test21.med',med_acc_rdwr, cret)
52 if (cret .ne. 0 )
then
53 print *,
'Erreur creation du fichier'
56 print *,
'Creation du fichier test21.med'
63 if (cret .ne. 0 )
then
64 print *,
'Erreur creation variable scalaire'
67 print *,
'Creation d une variable scalaire entiere'
71 call mprivw(fid,nom1,med_no_dt,med_no_it,med_undef_dt,
74 if (cret .ne. 0 )
then
75 print *,
'Erreur ecriture valeur scalaire'
78 print *,
'Ecriture valeur entiere sans pas de temps'
83 call mprivw(fid,nom1,1,med_no_it,dt,vali2,cret)
85 if (cret .ne. 0 )
then
86 print *,
'Erreur ecriture valeur scalaire'
89 print *,
'Ecriture valeur entiere avec pas de temps'
96 if (cret .ne. 0 )
then
97 print *,
'Erreur creation variable sclaire'
100 print *,
'Creation d une variable scalaire flottante'
104 call mprrvw(fid,nom2,1,2,dt,valr1,cret)
106 if (cret .ne. 0 )
then
107 print *,
'Erreur ecriture valeur scalaire'
110 print *,
'Ecriture valeur entiere avec pas de temps'
115 if (cret .ne. 0 )
then
116 print *,
'Erreur fermeture du fichier'
120 print *,
'Fermeture du fichier test21.med'