      1  C*************************************************************************
      2  C COPYRIGHT (C) 1999 - 2003  EDF R&D
      3  C THIS LIBRARY IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
      4  C IT UNDER THE TERMS OF THE GNU LESSER GENERAL PUBLIC LICENSE
      5  C AS PUBLISHED BY THE FREE SOFTWARE FOUNDATION;
      6  C EITHER VERSION 2.1 OF THE LICENSE, OR (AT YOUR OPTION) ANY LATER VERSION.
      7  C
      8  C THIS LIBRARY IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
      9  C WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
     10  C MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
     11  C LESSER GENERAL PUBLIC LICENSE FOR MORE DETAILS.
     12  C
     13  C YOU SHOULD HAVE RECEIVED A COPY OF THE GNU LESSER GENERAL PUBLIC LICENSE
     14  C ALONG WITH THIS LIBRARY; IF NOT, WRITE TO THE FREE SOFTWARE FOUNDATION,
     15  C INC., 59 TEMPLE PLACE, SUITE 330, BOSTON, MA 02111-1307 USA
     16  C
     17  C**************************************************************************
     18
     19  C******************************************************************************
     20  C* - Nom du fichier : test21.f
     21  C*
     22  C* - Description : ecriture de valeurs scalaires numeriques dans un fichier MED
     23  C*
     24  C ******************************************************************************
     25        program test21
     26  C
     27        implicit none
     28        include 'med.hf'
     29  C
     30        integer cret, fid
     31        character*16 edtuni,dtunit1
     32        character*32 nom1, nom2
     33        character*200 desc1, desc2
     34        integer vali1, vali2
     35        real*8 valr1,dt
     36  C
     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.98)
     43        parameter (edtuni="",dtunit1="ms")
     44        parameter (dt = 5.5)
     45  C
     46  C
     47  C     Creation du fichier test21.med
     48  C
     49        call efouvr(fid,'test21.med',MED_CREATION,cret)
     50        print *,cret
     51        print *,'Creation du fichier test21.med'
     52  C
     53  C     Creation d'une variable scalaire entiere
     54  C
     55        if (cret .eq. 0) then
     56           call efscac(fid,nom1,MED_INT,desc1,cret)
     57           print *,cret
     58           print *,'Creation d une variable scalaire entiere'
     59        endif
     60  C
     61  C     Ecriture d'une valeur sans pas de temps ni numero d'ordre
     62  C
     63        if (cret .eq. 0) then
     64           call efscee(fid,nom1,vali1,MED_NOPDT,edtuni,0.0,MED_NONOR,cret)
     65           print *,cret
     66           print *,'Ecriture valeur entiere sans pas de temps'
     67        endif
     68  C
     69  C     Ecriture d'une valeur avec pas de temps et sans numero d'ordre
     70  C
     71        if (cret .eq. 0) then
     72           call efscee(fid,nom1,vali2,1,dtunit1,dt,MED_NONOR,cret)
     73           print *,cret
     74           print *,'Ecriture valeur entiere avec pas de temps'
     75        endif
     76  C
     77  C     Creation d'une variable scalaire flottante
     78  C
     79        if (cret .eq. 0) then
     80           call efscac(fid,nom2,MED_FLOAT64,desc2,cret)
     81           print *,cret
     82           print *,'Creation d une variable scalaire flottante'
     83        endif
     84  C
     85  C     Ecriture d'une valeur flottante avec pas de temps et numero d'ordre
     86  C
     87        if (cret .eq. 0) then
     88           call efscfe(fid,nom2,valr1,1,dtunit1,dt,2,cret)
     89           print *,cret
     90           print *,'Ecriture valeur entiere avec pas de temps'
     91        endif
     92  C
     93  C     Fermeture du fichier
     94  C
     95        call efferm(fid,cret)
     96        print *,cret
     97        print *,'Fermeture du fichier test21.med'
     98  C
     99        end
    100  C