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