macro coeffs

boolean(sol)
sol=:isln(1)/3:*3.eq.isln(1)
if(sol) then
 if(ny.gt.1) then
(stored var anp1 is anco(p1))
(stored var asp1 is asco(p1))
 endif
 if(nx.gt.1) then
(stored var aep1 is aeco(p1))
(stored var awp1 is awco(p1))
 endif
 if(nz.gt.1) then 
(stored var ahp1 is ahco(p1))
(stored var alp1 is alco(p1))
 endif 
 (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
 if(ny.gt.1) then
(stored var anu1 is anco(u1))
(stored var asu1 is asco(u1))
 endif
 if(nx.gt.1) then
(stored var aeu1 is aeco(u1))
(stored var awu1 is awco(u1))
 endif
 if(nz.gt.1) then 
(stored var ahu1 is ahco(u1))
(stored var alu1 is alco(u1))
 endif 
 (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
 if(ny.gt.1) then
(stored var anv1 is anco(v1))
(stored var asv1 is asco(v1))
 endif
 if(nx.gt.1) then
(stored var aev1 is aeco(v1))
(stored var awv1 is awco(v1))
 endif
 if(nz.gt.1) then 
(stored var ahv1 is ahco(v1))
(stored var alv1 is alco(v1))
 endif 
 (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
 if(ny.gt.1) then
(stored var anw1 is anco(w1))
(stored var asw1 is asco(w1))
 endif
 if(nx.gt.1) then
(stored var aew1 is aeco(w1))
(stored var aww1 is awco(w1))
 endif
 if(nz.gt.1) then 
(stored var ahw1 is ahco(w1))
(stored var alw1 is alco(w1))
 endif 
 (stored var apw1 is apco(w1))
 (stored var rsw1 is resi(w1))
 (stored var crw1 is corr(w1))
endif 

integer(item1)
stovar(tem1,item1)
if(item1.gt.0) then
 if(ny.gt.1) then
(stored var ant1 is anco(tem1))
(stored var ast1 is asco(tem1))
 endif
 if(nx.gt.1) then
(stored var aet1 is aeco(tem1))
(stored var awt1 is awco(tem1))
 endif
 if(nz.gt.1) then 
(stored var aht1 is ahco(tem1))
(stored var alt1 is alco(tem1))
 endif 
 (stored var apt1 is apco(tem1))
 (stored var rst1 is resi(tem1))
 (stored var crt1 is corr(tem1))
endif