From 1312cb77e35437f2068e50f7e93bd2828b787852 Mon Sep 17 00:00:00 2001 From: David A Minton Date: Mon, 30 Aug 2021 08:59:15 -0400 Subject: [PATCH] Added coordinate conversion while generating fragment position and velocities. --- src/symba/symba_collision.f90 | 2 ++ 1 file changed, 2 insertions(+) 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(:)