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

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