diff --git a/src/symba/symba_collision.f90 b/src/symba/symba_collision.f90 index 5ccbcf993..f1f42d3cf 100644 --- a/src/symba/symba_collision.f90 +++ b/src/symba/symba_collision.f90 @@ -451,6 +451,7 @@ module function symba_collision_check_encounter(self, system, param, t, dt, irec end do end if + if (any(lcollision(1:nenc))) call pl%xh2xb(system%cb) ! Update the central body barycenteric position vector to get us out of DH and into bary do k = 1, nenc if (lcollision(k)) self%status(k) = COLLISION self%t(k) = t