# scalaire.f

Aller à la documentation de ce fichier.

    00001 C*  This file is part of MED.
    00002 C*
    00003 C*  COPYRIGHT (C) 1999 - 2011  EDF R&D, CEA/DEN
    00004 C*  MED is free software: you can redistribute it and/or modify
    00005 C*  it under the terms of the GNU Lesser General Public License as published by
    00006 C*  the Free Software Foundation, either version 3 of the License, or
    00007 C*  (at your option) any later version.
    00008 C*
    00009 C*  MED is distributed in the hope that it will be useful,
    00010 C*  but WITHOUT ANY WARRANTY; without even the implied warranty of
    00011 C*  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
    00012 C*  GNU Lesser General Public License for more details.
    00013 C*
    00014 C*  You should have received a copy of the GNU Lesser General Public License
    00015 C*  along with MED.  If not, see <http://www.gnu.org/licenses/>.
    00016 C*
    00017
    00018       subroutine efscac(fid,sca,type,desc,cret)
    00019 c
    00020       implicit none
    00021       save
    00022 c
    00023       character *(*) sca,desc
    00024       integer fid, cret, type
    00025       integer edfscac
    00026 c
    00027       cret = edfscac (fid,sca,len(sca),type,desc,len(desc))
    00028 c
    00029       return
    00030       end
    00031 c
    00032 c     Ecriture des scalaires en differenciant ENTIERS et REELS
    00033 c
    00034       subroutine efscee(fid,sca,val,numdt,dtunit,dt,numo,cret)
    00035 c
    00036       implicit none
    00037       save
    00038 c
    00039       character *32 sca
    00040       character*(*) dtunit
    00041       integer fid,val,cret
    00042       integer numdt,numo
    00043       real*8 dt
    00044       integer edfscee
    00045 c
    00046       cret = edfscee(fid,sca,len(sca),val,
    00047      1               numdt,dtunit,len(dtunit),dt,numo)
    00048 c
    00049       return
    00050       end
    00051 c
    00052 c
    00053 c
    00054       subroutine efscfe(fid,sca,val,numdt,dtunit,
    00055      1                  dt,numo,cret)
    00056 c
    00057       implicit none
    00058       save
    00059 c
    00060       character *(*) sca
    00061       character*(*) dtunit
    00062       integer fid,cret
    00063       integer numdt,numo
    00064       real*8 dt
    00065       real*8 val
    00066       integer edfscfe
    00067 c
    00068       cret = edfscfe(fid,sca,len(sca),val,
    00069      1               numdt,dtunit,len(dtunit),dt,numo)
    00070 c
    00071       return
    00072       end
    00073 c
    00074 c
    00075 c
    00076 c     Lecture des champs en distinguant les reels et les entiers
    00077 c
    00078       subroutine efscel(fid,sca,val,numdt, numo,cret)
    00079 c
    00080       implicit none
    00081       save
    00082 c
    00083       character *(*) sca
    00084       integer fid,val,cret
    00085       integer numdt,numo
    00086       integer edfscel
    00087 c
    00088       cret = edfscel(fid,sca,len(sca),val,numdt,numo)
    00089 c
    00090       return
    00091       end
    00092 c
    00093 c
    00094 c
    00095       subroutine efscfl(fid,sca,val,numdt, numo,cret)
    00096 c
    00097       implicit none
    00098       save
    00099 c
    00100       character *(*) sca
    00101       integer fid,cret
    00102       integer numdt,numo
    00103       integer edfscfl
    00104       real*8 val(*)
    00105 c
    00106       cret = edfscfl(fid,sca,len(sca),val,numdt,numo)
    00107 c
    00108       return
    00109       end
    00110 c
    00111 c
    00112 c
    00113       subroutine efscai(fid,ind,sca,type,desc,cret)
    00114 c
    00115       implicit none
    00116       save
    00117 c
    00118       character *(*) sca,desc
    00119       integer fid,ind,type,cret
    00120       integer edfscai
    00121 c
    00122       cret = edfscai(fid,ind,sca,type,desc)
    00123 c
    00124       return
    00125       end
    00126 c
    00127       subroutine efnsca(fid,n,cret)
    00128 c
    00129       implicit none
    00130       save
    00131 c
    00132       integer fid,cret,n
    00133       integer edfnsca
    00134 c
    00135       n = edfnsca(fid)
    00136       if (n.lt.0) then
    00137          cret = -1
    00138       else
    00139          cret = 0
    00140       endif
    00141 c
    00142       return
    00143       end
    00144 c
    00145       subroutine efnspd(fid,sca,n,cret)
    00146 c
    00147       implicit none
    00148       save
    00149 c
    00150       integer fid,n,cret
    00151       character*32 sca
    00152       integer edfnspd
    00153 c
    00154       n = edfnspd(fid,sca,len(sca))
    00155 c
    00156       if (n.lt.0) then
    00157          cret = -1
    00158       else
    00159          cret = 0
    00160       endif
    00161 c
    00162       return
    00163       end
    00164 c
    00165
    00166       subroutine efspdi(fid,sca,indice,
    00167      1                  numdt,dtunit,dt,numo,cret)
    00168 c
    00169       implicit none
    00170       save
    00171 c
    00172       integer fid,indice,numdt,numo,cret
    00173       character*32 sca
    00174       character*16 dtunit
    00175       real*8 dt
    00176       integer edfspdi
    00177 c
    00178       cret = edfspdi(fid,sca,len(sca),indice,
    00179      1               numdt,dtunit,dt,numo)
    00180 c
    00181       return
    00182       end
    00183 c