macro resids created by dbs in May 2014 by extraction
    from macro coeffs, viz. 064.htm
    It may be useful, and more tidy. to create a correcs macro.
    which activates the crp1 etc lines below; and also to remove
    residuals and corrections from coeffs.

boolean(sol)
sol=:isln(1)/3:*3.eq.isln(1)
if(sol) then

  (stored var app1 is apco(p1))
(stored var rsp1 is resi(p1))
  stored var crp1 is corr(p1))
endif 

sol=:isln(3)/3:*3.eq.isln(3)
if(sol) then

  (stored var apu1 is apco(u1))
(stored var rsu1 is resi(u1))
  (stored var cru1 is corr(u1))
endif 

sol=:isln(5)/3:*3.eq.isln(5)
if(sol) then
 
  (stored var apv1 is apco(v1))
(stored var rsv1 is resi(v1))
  (stored var crv1 is corr(v1))
endif 

sol=:isln(7)/3:*3.eq.isln(7)
if(sol) then
  (stored var apw1 is apco(w1))
(stored var rsw1 is resi(w1))
  (stored var crw1 is corr(w1))
endif 

integer(item1)
stovar(tem1,item1)
item1
if(item1.gt.0) then
 
  (stored var apt1 is apco(tem1))
(stored var rst1 is resi(tem1))
  (stored var crt1 is corr(tem1))
endif