medparameter.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 mprcre(fid , name , type , des , dtunit,  cret)
00019 c
00020       implicit none
00021       save
00022 c     
00023       character *(*) name, des, dtunit
00024       integer fid, cret,  type
00025       integer mprfcre
00026 c
00027       cret = mprfcre(fid,name,len(name),type,des,len(des),
00028      &               dtunit,len(dtunit))
00029 c
00030       return
00031       end
00032 c
00033 c
00034 c
00035       subroutine mprrvw(fid,name,numdt,numit,dt,val,cret)
00036 c
00037       implicit none
00038       save
00039       character*(*) name
00040       integer fid,numdt,numit,cret
00041       real*8 dt,val
00042       integer mprfrvw
00043 c
00044       cret = mprfrvw(fid,name,len(name),numdt,numit,dt,val)
00045 c      
00046       return
00047       end
00048 c
00049 c
00050 c
00051       subroutine mprivw(fid,name,numdt,numit,dt,val,cret)
00052 c
00053       implicit none
00054       save
00055       character*(*) name
00056       integer fid,numdt,numit,cret
00057       real*8 dt
00058       integer val
00059       integer mprfivw
00060 c
00061       cret = mprfivw(fid,name,len(name),numdt,numit,dt,val)
00062 c      
00063       return
00064       end
00065 c
00066 c
00067 c
00068       subroutine mprrvr(fid,name,numdt,numit,val,cret)
00069 c
00070       implicit none
00071       save
00072       character*(*) name
00073       integer fid,numdt,numit,cret
00074       real*8 val
00075       integer mprfrvr
00076 c
00077       cret = mprfrvr(fid,name,len(name),numdt,numit,val)
00078 c      
00079       return
00080       end
00081 c
00082 c
00083 c
00084       subroutine mprivr(fid,name,numdt,numit,val,cret)
00085 c
00086       implicit none
00087       save
00088       character*(*) name
00089       integer fid,numdt,numit,cret
00090       integer val
00091       integer mprfivr
00092 c
00093       cret = mprfivr(fid,name,len(name),numdt,numit,val)
00094 c      
00095       return
00096       end
00097 c
00098 c
00099 c
00100       subroutine mprnpr(fid,n,cret)
00101 c
00102       implicit none
00103       save
00104       integer fid,n,cret
00105       integer mprfnpr
00106 c
00107       n = mprfnpr(fid)
00108 c
00109       if (n.lt.0) then
00110          cret = -1
00111       else
00112          cret = 0
00113       endif
00114 c      
00115       return
00116       end
00117 c
00118 c
00119 c
00120       subroutine mprpri(fid, it, name, type, desc, 
00121      &                  dtunit,  nstep, cret)
00122 c
00123       implicit none
00124       save
00125 c
00126       character *(*) name, dtunit, desc
00127       integer fid, it, cret,  type, nstep
00128       integer mprfpri 
00129 c
00130       cret = mprfpri(fid, it, name, type,
00131      &               desc, dtunit,  nstep)
00132 c     
00133       return
00134       end
00135 c
00136 c
00137 c
00138       subroutine mprpin(fid, name, type, desc, 
00139      &                  dtunit,  nstep, cret)
00140 c
00141       implicit none
00142       save
00143 c
00144       character *(*) name, dtunit, desc
00145       integer fid, cret,  type, nstep
00146       integer mprfpin 
00147 c
00148       cret = mprfpin(fid, name, len(name), type,
00149      &               desc, dtunit,  nstep)
00150 c     
00151       return
00152       end
00153 c
00154 c
00155 c
00156       subroutine mprcsi(fid, name, it, numdt, numit,
00157      &                  dt, cret)
00158 c
00159       implicit none
00160       save
00161 c
00162       character *(*) name
00163       integer fid, it, cret, numdt, numit
00164       real*8 dt
00165       integer mprfcsi 
00166 c
00167       cret = mprfcsi(fid, name, len(name), it, 
00168      &               numdt,numit,dt)
00169 c     
00170       return
00171       end

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