1820 T=T+TI(I,J)*TI(I,J)