00001
00002
00003
00004
00005
00006
00007
00008
00009
00010
00011
00012
00013
00014
00015
00016
00017
00018 subroutine meqcre(fid , maa , eq , des , cret)
00019
00020
00021 implicit none
00022 save
00023
00024 character *(*) maa, des, eq
00025 integer fid, cret
00026 integer meqfcre
00027
00028 cret = meqfcre(fid, maa, len(maa), eq, len(eq), des, len(des))
00029
00030 return
00031 end
00032
00033
00034
00035 subroutine meqcow(fid,maa,eq,numdt,numit,typent,typgeo,
00036 & n,corr,cret)
00037
00038
00039 implicit none
00040 save
00041
00042 character *(*) maa, eq
00043 integer numit, numdt
00044 integer fid, cret, n, typent, typgeo
00045 integer corr(*)
00046 integer meqfcow
00047
00048 cret = meqfcow(fid,maa,len(maa),eq,len(eq),
00049 & numdt,numit,typent,typgeo,
00050 & n,corr)
00051
00052 return
00053 end
00054
00055
00056
00057 subroutine meqneq(fid,maa,n,cret)
00058
00059
00060 implicit none
00061 save
00062
00063 character *(*) maa
00064 integer fid, cret, n
00065 integer meqfneq
00066
00067 n = meqfneq(fid, maa, len(maa))
00068 if (n.lt.0) then
00069 cret = -1
00070 else
00071 cret =0
00072 endif
00073
00074 return
00075 end
00076
00077
00078
00079 subroutine meqeqi(fid,maa,ind,eq,des,nstep,nctcor,cret)
00080
00081
00082 implicit none
00083 save
00084
00085 character *(*) maa,eq,des
00086 integer fid, cret,ind,nstep,nctcor
00087 integer meqfeqi
00088
00089 cret = meqfeqi(fid,maa,len(maa),ind,eq,des,
00090 & nstep,nctcor)
00091
00092 return
00093 end
00094
00095
00096
00097 subroutine meqcsz(fid,maa,eq,numdt,numit,
00098 & typent,typgeo,n,cret)
00099
00100
00101 implicit none
00102 save
00103
00104 character *(*) maa, eq
00105 integer fid,cret,n,typent,typgeo,numit,numdt
00106 integer meqfcsz
00107
00108 n = meqfcsz(fid,maa,len(maa),eq,len(eq),
00109 & numdt,numit,typent,typgeo)
00110
00111 if (n.lt.0) then
00112 cret = -1
00113 else
00114 cret =0
00115 endif
00116
00117 return
00118 end
00119
00120
00121
00122 subroutine meqszi(fid,maa,eq,numdt,numit,
00123 & corit,typent,typgeo,n,cret)
00124
00125
00126 implicit none
00127 save
00128
00129 character *(*) maa, eq
00130 integer fid,cret,n,typent,typgeo,numit,numdt
00131 integer corit
00132 integer meqfszi
00133
00134 cret = meqfszi(fid,maa,len(maa),eq,len(eq),
00135 & numdt,numit,corit,typent,typgeo,n)
00136
00137 return
00138 end
00139
00140
00141
00142 subroutine meqcor(fid,maa,eq,numdt,mumit,typent,typgeo,
00143 & corr,cret)
00144
00145
00146 implicit none
00147 save
00148
00149 character *(*) maa, eq
00150 integer fid, cret, corr(*), typent, typgeo,numdt,mumit
00151 integer meqfcor
00152
00153 cret = meqfcor(fid, maa, len(maa), eq, len(eq),
00154 & numdt,mumit,typent,typgeo,corr)
00155
00156 return
00157 end
00158
00159
00160
00161 subroutine meqcsi(fid,maa,eq,ind,numdt,numit,ncor,cret)
00162
00163
00164 implicit none
00165 save
00166
00167 character *(*) maa,eq
00168 integer fid,cret,ind,numdt,numit,ncor
00169 integer meqfcsi
00170
00171 cret = meqfcsi(fid,maa,len(maa),eq,len(eq),
00172 & numdt,numit,ncor)
00173
00174 return
00175 end