From 1fb1c060368c189f3b5772073d75240bacf78189 Mon Sep 17 00:00:00 2001 From: Carlisle Wishard Date: Tue, 1 Jun 2021 17:35:22 -0400 Subject: [PATCH] symba_frag_pos rescaled energies --- src/symba/symba_frag_pos.f90 | 8 ++++++++ 1 file changed, 8 insertions(+) diff --git a/src/symba/symba_frag_pos.f90 b/src/symba/symba_frag_pos.f90 index 9fb00c0cf..4feb7579d 100644 --- a/src/symba/symba_frag_pos.f90 +++ b/src/symba/symba_frag_pos.f90 @@ -216,6 +216,14 @@ subroutine restore_scale_factors() end do Qloss = Qloss * Escale + ke_family = ke_family * Escale + Etot_before = Etot_before * Escale + pe_before = pe_before * Escale + ke_spin_before = ke_spin_before * Escale + ke_orbit_before = ke_orbit_before * Escale + Ltot_before = Ltot_before * Lscale + Lmag_before = Lmag_before * Lscale + mscale = 1.0_DP rscale = 1.0_DP vscale = 1.0_DP