An implementation of Tully surface hopping for a simple model of electron transfer, in Fortran.