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