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

Généré le Mon May 16 17:10:23 2011 pour MED fichier par  doxygen 1.6.1