scalaire.f

Aller à la documentation de ce fichier.
00001 C*  This file is part of MED.
00002 C*
00003 C*  COPYRIGHT (C) 1999 - 2015  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

Généré le Thu Oct 8 14:26:17 2015 pour MED fichier par  doxygen 1.6.1