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'
subroutine mprivw(fid, name, numdt, numit, dt, val, cret)
Cette routine permet l'écriture de la valeur d'un paramètre numérique scalaire.
subroutine mficlo(fid, cret)
Fermeture 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 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.