11130 TK(I,J)=TK(I,J)-X*TK(IP,J)