Program to compute the Born Oppenheimer Dynamics