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