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 mfiope(fid, name, access, cret)
subroutine mprivw(fid, name, numdt, numit, dt, val, cret)
subroutine mficlo(fid, cret)
subroutine mprcre(fid, name, type, des, dtunit, cret)
subroutine mprrvw(fid, name, numdt, numit, dt, val, cret)