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'