diff --git a/src/fraggle/fraggle_generate.f90 b/src/fraggle/fraggle_generate.f90 index 9e802098c..51c4817e9 100644 --- a/src/fraggle/fraggle_generate.f90 +++ b/src/fraggle/fraggle_generate.f90 @@ -593,7 +593,7 @@ module subroutine fraggle_generate_vel_vec(collider, nbody_system, param, lfailu collider_local%fail_scale = collider_local%fail_scale*1.01_DP ! Bring the minimum and maximum velocities closer together for the next round - delta_v = 0.25_DP * (vmax_guess - vmin_guess) + delta_v = 0.125_DP * (vmax_guess - vmin_guess) vmin_guess = vmin_guess + delta_v vmax_guess = vmax_guess - delta_v end do outer