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'