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

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