diff --git a/src/symba/symba_collision.f90 b/src/symba/symba_collision.f90 index 56713e101..2bf7387d6 100644 --- a/src/symba/symba_collision.f90 +++ b/src/symba/symba_collision.f90 @@ -910,6 +910,8 @@ subroutine symba_collision_mergeaddsub(system, param, family, id_frag, Ip_frag, plnew%id(1:nfrag) = id_frag(1:nfrag) plnew%xb(:, 1:nfrag) = xb_frag(:, 1:nfrag) plnew%vb(:, 1:nfrag) = vb_frag(:, 1:nfrag) + call pl%vb2vh(cb) + call pl%xh2xb(cb) do i = 1, nfrag plnew%xh(:,i) = xb_frag(:, i) - cb%xb(:) plnew%vh(:,i) = vb_frag(:, i) - cb%vb(:)