From 0b4dd7da73a3ad2b47ddd5cd2ee262c1912ba7c8 Mon Sep 17 00:00:00 2001 From: David Minton Date: Wed, 19 May 2021 19:57:02 -0400 Subject: [PATCH] Got rid of incorrect energy error reporting --- src/symba/symba_frag_pos.f90 | 2 -- 1 file changed, 2 deletions(-) diff --git a/src/symba/symba_frag_pos.f90 b/src/symba/symba_frag_pos.f90 index 10c07c783..d1ba8ac8a 100644 --- a/src/symba/symba_frag_pos.f90 +++ b/src/symba/symba_frag_pos.f90 @@ -199,8 +199,6 @@ subroutine symba_frag_pos (param, symba_plA, family, x, v, L_spin, Ip, mass, rad Etot_after = ke_orb_after + ke_spin_after + pe_after Lmag_after = norm2(Ltot_after(:)) - write(*,fmtlabel) ' T_frag calc |',ke_frag / abs(Etot_before) - write(*,fmtlabel) ' residual |',(ke_frag - ke_target) / abs(Etot_before) write(*, "(' ---------------------------------------------------------------------------')") write(*, "(' | T_orb T_spin T pe Etot Ltot')") write(*, "(' ---------------------------------------------------------------------------')")