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