179
179
c . update new data structure pointers recursively
180
180
call updptr(iln,ind,nind-1,dvol)
181
181
c . copy the rest of data structure
183
184
ltto=sadr(subptr(iltos,ind,nind-1))
184
185
if(ltos+voltos-ltto.gt.0) then
185
186
err=(lr+ltos+voltos-ltto)-lstk(bot)