# 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