2550 XES=XES+A(K,J)