1670 TJ(K,IP+1)=VX(K)