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