5980 TI(K,L)=(TI(K,L)-NXX*PM(K)*PM(L))/(NXX-1)