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