5925 TI(K,L)=TI(K,L)+XP(K)*XP(L)*ND