A Difference Scheme for the Hamiltonian Equation (Journal of Computational Mathematics, 1987)