2640 XES=C(1)*A(I-1,J)+(1-C(1))*XES