2320 PMM(K)=PMM(K)+TJ(L,VX(K))*XS(L)