Global Error Control in the Runge-Kutta Solution of a Hamiltonian System using the RKQ Algorithm