An implementation of the Ehrenfest solution to a simple electron transfer problem, in Fortran.