2810 TS(K)=TS(K)+XYZ(L)*TK(L,K)