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