From 4e951abf8a4434712851d31188bd2d6505676040 Mon Sep 17 00:00:00 2001 From: David A Minton Date: Mon, 16 Aug 2021 19:54:59 -0400 Subject: [PATCH] Added a xh2xb call before saving collisional position vectors --- src/symba/symba_collision.f90 | 1 + 1 file changed, 1 insertion(+) 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