18 subroutine meqcre(fid , maa , eq , des , cret)
24 character *(*) maa, des, eq
29 cret = meqfcre(fid, maa, len(maa), eq, len(eq), des, len(des))
36 subroutine meqcow(fid,maa,eq,numdt,numit,typent,typgeo,
43 character *(*) maa, eq
46 integer cret, n, typent, typgeo
50 cret = meqfcow(fid,maa,len(maa),eq,len(eq),
51 & numdt,numit,typent,typgeo,
59 subroutine meqneq(fid,maa,n,cret)
70 n = meqfneq(fid, maa, len(maa))
82 subroutine meqeqi(fid,maa,ind,eq,des,nstep,nctcor,cret)
88 character *(*) maa,eq,des
90 integer cret,ind,nstep,nctcor
93 cret = meqfeqi(fid,maa,len(maa),ind,eq,des,
101 subroutine meqcsz(fid,maa,eq,numdt,numit,
102 & typent,typgeo,n,cret)
108 character *(*) maa, eq
110 integer cret,n,typent,typgeo,numit,numdt
113 n = meqfcsz(fid,maa,len(maa),eq,len(eq),
114 & numdt,numit,typent,typgeo)
127 subroutine meqszi(fid,maa,eq,numdt,numit,
128 & corit,typent,typgeo,n,cret)
134 character *(*) maa, eq
136 integer cret,n,typent,typgeo,numit,numdt
140 cret = meqfszi(fid,maa,len(maa),eq,len(eq),
141 & numdt,numit,corit,typent,typgeo,n)
148 subroutine meqcor(fid,maa,eq,numdt,mumit,typent,typgeo,
155 character *(*) maa, eq
157 integer cret, corr(*), typent, typgeo,numdt,mumit
160 cret = meqfcor(fid, maa, len(maa), eq, len(eq),
161 & numdt,mumit,typent,typgeo,corr)
168 subroutine meqcsi(fid,maa,eq,ind,numdt,numit,ncor,cret)
174 character *(*) maa,eq
176 integer cret,ind,numdt,numit,ncor
179 cret = meqfcsi(fid,maa,len(maa),eq,len(eq),