30 character*16 edtuni,dtunit1
31 character*64 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 mfiope(fid,
'test21.med',med_acc_rdwr, cret)
51 if (cret .ne. 0 )
then
52 print *,
'Erreur creation du fichier'
55 print *,
'Creation du fichier test21.med'
62 if (cret .ne. 0 )
then
63 print *,
'Erreur creation variable scalaire'
66 print *,
'Creation d une variable scalaire entiere'
70 call mprivw(fid,nom1,med_no_dt,med_no_it,med_undef_dt,
73 if (cret .ne. 0 )
then
74 print *,
'Erreur ecriture valeur scalaire'
77 print *,
'Ecriture valeur entiere sans pas de temps'
82 call mprivw(fid,nom1,1,med_no_it,dt,vali2,cret)
84 if (cret .ne. 0 )
then
85 print *,
'Erreur ecriture valeur scalaire'
88 print *,
'Ecriture valeur entiere avec pas de temps'
92 call mprcre(fid,nom2,med_float64,desc2,dtunit1,
95 if (cret .ne. 0 )
then
96 print *,
'Erreur creation variable sclaire'
99 print *,
'Creation d une variable scalaire flottante'
103 call mprrvw(fid,nom2,1,2,dt,valr1,cret)
105 if (cret .ne. 0 )
then
106 print *,
'Erreur ecriture valeur scalaire'
109 print *,
'Ecriture valeur entiere avec pas de temps'
114 if (cret .ne. 0 )
then
115 print *,
'Erreur fermeture du fichier'
119 print *,
'Fermeture du fichier test21.med'
subroutine mficlo(fid, cret)
Fermeture d'un fichier MED.
subroutine mprrvw(fid, name, numdt, numit, dt, val, cret)
Cette routine permet l'écriture de la valeur d'un paramètre numérique scalaire.
subroutine mfiope(fid, name, access, cret)
Ouverture d'un fichier MED.
subroutine mprcre(fid, name, type, des, dtunit, cret)
Cette routine permet la création d'un paramètre numérique scalaire.
subroutine mprivw(fid, name, numdt, numit, dt, val, cret)
Cette routine permet l'écriture de la valeur d'un paramètre numérique scalaire.