diff --git a/src/symba/symba_collision.f90 b/src/symba/symba_collision.f90 index 05ac54fd4..0aec3a1be 100644 --- a/src/symba/symba_collision.f90 +++ b/src/symba/symba_collision.f90 @@ -957,10 +957,6 @@ module subroutine symba_collision_resolve_fragmentations(self, system, param) if (.not. lgoodcollision) cycle if (any(pl%status(idx_parent(:)) /= COLLISION)) cycle ! One of these two bodies has already been resolved - ! Convert from DH to barycentric - x(:,1) = x(:,1) + cb%xb(:) - x(:,2) = x(:,2) + cb%xb(:) - ! Convert all quantities to SI units and determine which of the pair is the projectile vs. target before sending them ! to symba_regime if (mass(1) > mass(2)) then @@ -1047,10 +1043,6 @@ module subroutine symba_collision_resolve_mergers(self, system, param) if (.not. lgoodcollision) cycle if (any(pl%status(idx_parent(:)) /= COLLISION)) cycle ! One of these two bodies has already been resolved - ! Convert from DH to barycentric - x(:,1) = x(:,1) + cb%xb(:) - x(:,2) = x(:,2) + cb%xb(:) - status = symba_collision_casemerge(system, param, family, x, v, mass, radius, L_spin, Ip) end do end select