11125 TJ(I,J)=TJ(I,J)-X*TJ(IP,J)