30 character*16 edtuni,dtunit1
31 character*32 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 efouvr(fid,
'test21.med',med_lecture_ecriture,cret)
51 if (cret .ne. 0 )
then
52 print *,
'Erreur creation du fichier'
55 print *,
'Creation du fichier test21.med'
59 call efscac(fid,nom1,
med_int,desc1,cret)
61 if (cret .ne. 0 )
then
62 print *,
'Erreur creation variable scalaire'
65 print *,
'Creation d une variable scalaire entiere'
70 call efscee(fid,nom1,vali1,med_nopdt,edtuni,dt,med_nonor,cret)
72 if (cret .ne. 0 )
then
73 print *,
'Erreur ecriture valeur scalaire'
76 print *,
'Ecriture valeur entiere sans pas de temps'
81 call efscee(fid,nom1,vali2,1,dtunit1,dt,med_nonor,cret)
83 if (cret .ne. 0 )
then
84 print *,
'Erreur ecriture valeur scalaire'
87 print *,
'Ecriture valeur entiere avec pas de temps'
91 call efscac(fid,nom2,med_float64,desc2,cret)
93 if (cret .ne. 0 )
then
94 print *,
'Erreur creation variable sclaire'
97 print *,
'Creation d une variable scalaire flottante'
101 call efscfe(fid,nom2,valr1,1,dtunit1,dt,2,cret)
103 if (cret .ne. 0 )
then
104 print *,
'Erreur ecriture valeur scalaire'
107 print *,
'Ecriture valeur entiere avec pas de temps'
111 call efferm(fid,cret)
112 if (cret .ne. 0 )
then
113 print *,
'Erreur fermeture du fichier'
117 print *,
'Fermeture du fichier test21.med'