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