3110 XX=C(1)*A(I-1,J)/VX(IX)+(1-C(1))*(SA+SB)