3455 C(K)=C(K)+2*IK*(ER/H1)*A(I-K,J)/H1