medinterp.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       subroutine mipcre(fid,name,gtype,cnode,nvar,
00018      &                  maxd,nmaxc,cret)
00019 c     DEC$ ATTRIBUTES DLLEXPORT :: mipcre
00020 c
00021       implicit none
00022       save
00023 c     
00024       character*(*) name
00025       integer fid, gtype,cnode,nvar,maxd,nmaxc,cret
00026       integer mipfcre
00027 c     
00028       cret = mipfcre(fid,name,len(name),gtype,cnode,
00029      &               nvar,maxd,nmaxc)
00030 c
00031       return
00032       end
00033 c
00034 c
00035 c
00036       subroutine mipbfw(fid,name,it,nc,pw,co,cret)
00037 c     DEC$ ATTRIBUTES DLLEXPORT :: mipbfw
00038 c
00039       implicit none
00040       save
00041 c     
00042       character*(*) name
00043       integer fid,it,nc,cret
00044       integer pw(*)
00045       real*8 co(*)
00046       integer mipfbfw
00047 c     
00048       cret = mipfbfw(fid,name,len(name),it,nc,pw,co)
00049 c
00050       return
00051       end
00052 c
00053 c
00054 c
00055       subroutine mipbfr(fid,name,it,nc,pw,co,cret)
00056 c     DEC$ ATTRIBUTES DLLEXPORT :: mipbfr
00057 c
00058       implicit none
00059       save
00060 c     
00061       character*(*) name
00062       integer fid,it,nc,cret
00063       integer pw(*)
00064       real*8 co(*)
00065       integer mipfbfr
00066 c     
00067       cret = mipfbfr(fid,name,len(name),it,nc,pw,co)
00068 c
00069       return
00070       end
00071 
00072 c
00073 c
00074 c
00075       subroutine mipnip(fid,n,cret)
00076 c     DEC$ ATTRIBUTES DLLEXPORT :: mipnip
00077 c
00078       implicit none
00079       save
00080 c     
00081       integer n, fid,  cret
00082       integer mipfnip
00083 c     
00084       n = mipfnip(fid)
00085 c
00086       if (n.lt.0) then
00087          cret = -1
00088       else
00089          cret = 0
00090       endif
00091 c
00092       return
00093       end
00094 c
00095 c
00096 c
00097       subroutine mipiin(fid,name,gtype,cnode,nbf,nvar,
00098      &                  maxd,nmaxc,cret)
00099 c     DEC$ ATTRIBUTES DLLEXPORT :: mipiin
00100 c
00101       implicit none
00102       save
00103 c     
00104       character*(*) name
00105       integer fid, gtype,cnode,nvar,maxd,nmaxc,cret,nbf
00106       integer mipfiin
00107 c     
00108       cret = mipfiin(fid,name,len(name),gtype,cnode,nbf,
00109      &               nvar,maxd,nmaxc)
00110 c
00111       return
00112       end
00113 c
00114 c
00115 c
00116       subroutine mipipi(fid,it,name,gtype,cnode,nbf,nvar,
00117      &                  maxd,nmaxc,cret)
00118 c     DEC$ ATTRIBUTES DLLEXPORT :: mipipi
00119 c
00120       implicit none
00121       save
00122 c     
00123       character*(*) name
00124       integer fid, gtype,cnode,nvar,maxd,nmaxc,cret,nbf
00125       integer it
00126       integer mipfipi
00127 c     
00128       cret = mipfipi(fid,it,name,gtype,cnode,
00129      &               nbf,nvar,maxd,nmaxc)
00130 c
00131       return
00132       end
00133 c
00134 c
00135 c
00136       subroutine mipcsz(fid,name,it,n,cret)
00137 c     DEC$ ATTRIBUTES DLLEXPORT :: mipcsz
00138 c
00139       implicit none
00140       save
00141 c     
00142       character*(*) name
00143       integer n, fid, it, cret
00144       integer mipfcsz
00145 c     
00146       n = mipfcsz(fid,name,len(name),it)
00147 c
00148       if (n.lt.0) then
00149          cret = -1
00150       else
00151          cret = 0
00152       endif
00153 c
00154       return
00155       end

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