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*32 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 efouvr(fid,'test21.med',MED_LECTURE_ECRITURE,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 efscac(fid,nom1,MED_INT,desc1,cret)
00060 print *,cret
00061 if (cret .ne. 0 ) then
00062 print *,'Erreur creation variable scalaire'
00063 call efexit(-1)
00064 endif
00065 print *,'Creation d une variable scalaire entiere'
00066
00067
00068
00069 dt =0.0D0
00070 call efscee(fid,nom1,vali1,MED_NOPDT,edtuni,dt,MED_NONOR,cret)
00071 print *,cret
00072 if (cret .ne. 0 ) then
00073 print *,'Erreur ecriture valeur scalaire'
00074 call efexit(-1)
00075 endif
00076 print *,'Ecriture valeur entiere sans pas de temps'
00077
00078
00079
00080 dt = 5.5D0
00081 call efscee(fid,nom1,vali2,1,dtunit1,dt,MED_NONOR,cret)
00082 print *,cret
00083 if (cret .ne. 0 ) then
00084 print *,'Erreur ecriture valeur scalaire'
00085 call efexit(-1)
00086 endif
00087 print *,'Ecriture valeur entiere avec pas de temps'
00088
00089
00090
00091 call efscac(fid,nom2,MED_FLOAT64,desc2,cret)
00092 print *,cret
00093 if (cret .ne. 0 ) then
00094 print *,'Erreur creation variable sclaire'
00095 call efexit(-1)
00096 endif
00097 print *,'Creation d une variable scalaire flottante'
00098
00099
00100
00101 call efscfe(fid,nom2,valr1,1,dtunit1,dt,2,cret)
00102 print *,cret
00103 if (cret .ne. 0 ) then
00104 print *,'Erreur ecriture valeur scalaire'
00105 call efexit(-1)
00106 endif
00107 print *,'Ecriture valeur entiere avec pas de temps'
00108
00109
00110
00111 call efferm(fid,cret)
00112 if (cret .ne. 0 ) then
00113 print *,'Erreur fermeture du fichier'
00114 call efexit(-1)
00115 endif
00116 print *,cret
00117 print *,'Fermeture du fichier test21.med'
00118
00119 end
00120