# scalaire.f

Aller à la documentation de ce fichier.

    00001 C*  This file is part of MED.
    00002 C*
    00003 C*  COPYRIGHT (C) 1999 - 2012  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     DEC$ ATTRIBUTES DLLEXPORT :: efscac
    00020 c
    00021       implicit none
    00022       save
    00023 c
    00024       character *(*) sca,desc
    00025       integer fid, cret, type
    00026       integer edfscac
    00027 c
    00028       cret = edfscac (fid,sca,len(sca),type,desc,len(desc))
    00029 c
    00030       return
    00031       end
    00032 c
    00033 c     Ecriture des scalaires en differenciant ENTIERS et REELS
    00034 c
    00035       subroutine efscee(fid,sca,val,numdt,dtunit,dt,numo,cret)
    00036 c     DEC$ ATTRIBUTES DLLEXPORT :: efscee
    00037 c
    00038       implicit none
    00039       save
    00040 c
    00041       character *32 sca
    00042       character*(*) dtunit
    00043       integer fid,val,cret
    00044       integer numdt,numo
    00045       real*8 dt
    00046       integer edfscee
    00047 c
    00048       cret = edfscee(fid,sca,len(sca),val,
    00049      1               numdt,dtunit,len(dtunit),dt,numo)
    00050 c
    00051       return
    00052       end
    00053 c
    00054 c
    00055 c
    00056       subroutine efscfe(fid,sca,val,numdt,dtunit,
    00057      1                  dt,numo,cret)
    00058 c     DEC$ ATTRIBUTES DLLEXPORT :: efscfe
    00059 c
    00060       implicit none
    00061       save
    00062 c
    00063       character *(*) sca
    00064       character*(*) dtunit
    00065       integer fid,cret
    00066       integer numdt,numo
    00067       real*8 dt
    00068       real*8 val
    00069       integer edfscfe
    00070 c
    00071       cret = edfscfe(fid,sca,len(sca),val,
    00072      1               numdt,dtunit,len(dtunit),dt,numo)
    00073 c
    00074       return
    00075       end
    00076 c
    00077 c
    00078 c
    00079 c     Lecture des champs en distinguant les reels et les entiers
    00080 c
    00081       subroutine efscel(fid,sca,val,numdt, numo,cret)
    00082 c     DEC$ ATTRIBUTES DLLEXPORT :: efscel
    00083 c
    00084       implicit none
    00085       save
    00086 c
    00087       character *(*) sca
    00088       integer fid,val,cret
    00089       integer numdt,numo
    00090       integer edfscel
    00091 c
    00092       cret = edfscel(fid,sca,len(sca),val,numdt,numo)
    00093 c
    00094       return
    00095       end
    00096 c
    00097 c
    00098 c
    00099       subroutine efscfl(fid,sca,val,numdt, numo,cret)
    00100 c     DEC$ ATTRIBUTES DLLEXPORT :: efscfl
    00101
    00102       implicit none
    00103       save
    00104 c
    00105       character *(*) sca
    00106       integer fid,cret
    00107       integer numdt,numo
    00108       integer edfscfl
    00109       real*8 val(*)
    00110 c
    00111       cret = edfscfl(fid,sca,len(sca),val,numdt,numo)
    00112 c
    00113       return
    00114       end
    00115 c
    00116 c
    00117 c
    00118       subroutine efscai(fid,ind,sca,type,desc,cret)
    00119 c     DEC$ ATTRIBUTES DLLEXPORT :: efscai
    00120 c
    00121       implicit none
    00122       save
    00123 c
    00124       character *(*) sca,desc
    00125       integer fid,ind,type,cret
    00126       integer edfscai
    00127 c
    00128       cret = edfscai(fid,ind,sca,type,desc)
    00129 c
    00130       return
    00131       end
    00132 c
    00133       subroutine efnsca(fid,n,cret)
    00134 c     DEC$ ATTRIBUTES DLLEXPORT :: efnsca
    00135 c
    00136       implicit none
    00137       save
    00138 c
    00139       integer fid,cret,n
    00140       integer edfnsca
    00141 c
    00142       n = edfnsca(fid)
    00143       if (n.lt.0) then
    00144          cret = -1
    00145       else
    00146          cret = 0
    00147       endif
    00148 c
    00149       return
    00150       end
    00151 c
    00152       subroutine efnspd(fid,sca,n,cret)
    00153 c     DEC$ ATTRIBUTES DLLEXPORT :: efnspd
    00154 c
    00155       implicit none
    00156       save
    00157 c
    00158       integer fid,n,cret
    00159       character*32 sca
    00160       integer edfnspd
    00161 c
    00162       n = edfnspd(fid,sca,len(sca))
    00163 c
    00164       if (n.lt.0) then
    00165          cret = -1
    00166       else
    00167          cret = 0
    00168       endif
    00169 c
    00170       return
    00171       end
    00172 c
    00173
    00174       subroutine efspdi(fid,sca,indice,
    00175      1                  numdt,dtunit,dt,numo,cret)
    00176 c     DEC$ ATTRIBUTES DLLEXPORT :: efspdi
    00177 c
    00178       implicit none
    00179       save
    00180 c
    00181       integer fid,indice,numdt,numo,cret
    00182       character*32 sca
    00183       character*16 dtunit
    00184       real*8 dt
    00185       integer edfspdi
    00186 c
    00187       cret = edfspdi(fid,sca,len(sca),indice,
    00188      1               numdt,dtunit,dt,numo)
    00189 c
    00190       return
    00191       end
    00192 c