diff --git a/src/fraggle/fraggle_generate.f90 b/src/fraggle/fraggle_generate.f90 index 92b0d0de4..2c6cc9461 100644 --- a/src/fraggle/fraggle_generate.f90 +++ b/src/fraggle/fraggle_generate.f90 @@ -448,8 +448,8 @@ module subroutine fraggle_generate_vel_vec(collider, nbody_system, param, lfailu vmag = vesc * vscale(i) rimp(:) = fragments%rc(:,i) - impactors%rbimp(:) vimp_unit(:) = .unit. rimp(:) - fragments%vc(:,i) = (impactors%bounce_unit(:) + vimp_unit(:)) * vsign(i) - fragments%vc(:,i) = vmag * .unit.fragments%vc(:,i) !+ vrot(:) + fragments%vc(:,i) = vimp_unit(:) * vsign(i) + fragments%vc(:,i) = vmag * .unit.fragments%vc(:,i) + vrot(:) end if end do