3430 H1=H1+A(I-K,J)^2