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