Correct error in ForceFieldFunctions.f90