00001
00002
00003
00004
00005
00006
00007
00008
00009
00010
00011
00012
00013
00014
00015
00016
00017
00018
00019
00020
00021
00022
00023
00024 program test21
00025
00026 implicit none
00027 include 'med.hf'
00028
00029 integer cret, fid
00030 character*16 edtuni,dtunit1
00031 character*64 nom1, nom2
00032 character*200 desc1, desc2
00033 integer vali1, vali2
00034 real*8 valr1,dt
00035
00036 parameter (nom1="VariableEntiere")
00037 parameter (nom2="VariableFlottante")
00038 data desc1 / "Une premiere description" /
00039 data desc2 / "Une seconde description" /
00040 parameter (vali1 = 56,vali2 = -789)
00041 parameter (valr1 = 67.98D0)
00042
00043 parameter (edtuni=" "
00044 1 ,dtunit1="ms")
00045
00046
00047
00048
00049 call mfiope(fid,'test21.med',MED_ACC_RDWR, cret)
00050 print *,cret
00051 if (cret .ne. 0 ) then
00052 print *,'Erreur creation du fichier'
00053 call efexit(-1)
00054 endif
00055 print *,'Creation du fichier test21.med'
00056
00057
00058
00059 call mprcre(fid,nom1,MED_INT,desc1,dtunit1,
00060 & cret)
00061 print *,cret
00062 if (cret .ne. 0 ) then
00063 print *,'Erreur creation variable scalaire'
00064 call efexit(-1)
00065 endif
00066 print *,'Creation d une variable scalaire entiere'
00067
00068
00069
00070 call mprivw(fid,nom1,MED_NO_DT,MED_NO_IT,MED_UNDEF_DT,
00071 & vali1,cret)
00072 print *,cret
00073 if (cret .ne. 0 ) then
00074 print *,'Erreur ecriture valeur scalaire'
00075 call efexit(-1)
00076 endif
00077 print *,'Ecriture valeur entiere sans pas de temps'
00078
00079
00080
00081 dt = 5.5D0
00082 call mprivw(fid,nom1,1,MED_NO_IT,dt,vali2,cret)
00083 print *,cret
00084 if (cret .ne. 0 ) then
00085 print *,'Erreur ecriture valeur scalaire'
00086 call efexit(-1)
00087 endif
00088 print *,'Ecriture valeur entiere avec pas de temps'
00089
00090
00091
00092 call mprcre(fid,nom2,MED_FLOAT64,desc2,dtunit1,
00093 & cret)
00094 print *,cret
00095 if (cret .ne. 0 ) then
00096 print *,'Erreur creation variable sclaire'
00097 call efexit(-1)
00098 endif
00099 print *,'Creation d une variable scalaire flottante'
00100
00101
00102
00103 call mprrvw(fid,nom2,1,2,dt,valr1,cret)
00104 print *,cret
00105 if (cret .ne. 0 ) then
00106 print *,'Erreur ecriture valeur scalaire'
00107 call efexit(-1)
00108 endif
00109 print *,'Ecriture valeur entiere avec pas de temps'
00110
00111
00112
00113 call mficlo(fid,cret)
00114 if (cret .ne. 0 ) then
00115 print *,'Erreur fermeture du fichier'
00116 call efexit(-1)
00117 endif
00118 print *,cret
00119 print *,'Fermeture du fichier test21.med'
00120
00121 end
00122