31 character*16 edtuni,dtunit1
32 character*32 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 efouvr(fid,
'test21.med',med_lecture_ecriture,cret)
52 if (cret .ne. 0 )
then
53 print *,
'Erreur creation du fichier'
56 print *,
'Creation du fichier test21.med'
60 call efscac(fid,nom1,
med_int,desc1,cret)
62 if (cret .ne. 0 )
then
63 print *,
'Erreur creation variable scalaire'
66 print *,
'Creation d une variable scalaire entiere'
71 call efscee(fid,nom1,vali1,med_nopdt,edtuni,dt,med_nonor,cret)
73 if (cret .ne. 0 )
then
74 print *,
'Erreur ecriture valeur scalaire'
77 print *,
'Ecriture valeur entiere sans pas de temps'
82 call efscee(fid,nom1,vali2,1,dtunit1,dt,med_nonor,cret)
84 if (cret .ne. 0 )
then
85 print *,
'Erreur ecriture valeur scalaire'
88 print *,
'Ecriture valeur entiere avec pas de temps'
94 if (cret .ne. 0 )
then
95 print *,
'Erreur creation variable sclaire'
98 print *,
'Creation d une variable scalaire flottante'
102 call efscfe(fid,nom2,valr1,1,dtunit1,dt,2,cret)
104 if (cret .ne. 0 )
then
105 print *,
'Erreur ecriture valeur scalaire'
108 print *,
'Ecriture valeur entiere avec pas de temps'
112 call efferm(fid,cret)
113 if (cret .ne. 0 )
then
114 print *,
'Erreur fermeture du fichier'
118 print *,
'Fermeture du fichier test21.med'