From f39d5cdef22d954c8681483c6d5e5256a51294c3 Mon Sep 17 00:00:00 2001 From: Carlisle Wishard Date: Tue, 1 Jun 2021 17:23:22 -0400 Subject: [PATCH] symba_frag_pos fixed angular momentum error reporting --- src/symba/symba_frag_pos.f90 | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/symba/symba_frag_pos.f90 b/src/symba/symba_frag_pos.f90 index 9a1aee09b..5681cb400 100644 --- a/src/symba/symba_frag_pos.f90 +++ b/src/symba/symba_frag_pos.f90 @@ -103,7 +103,7 @@ subroutine symba_frag_pos(param, symba_plA, family, x, v, L_spin, Ip, mass, radi write(*,*) 'Failed due to high energy error: ',(abs(dEtot) - Qloss) / Qloss lmerge = .true. else if (abs(dLmag) > Ltol) then - write(*,*) 'Failed due to high angular momentum error: ',(abs(dEtot) - Qloss) / Qloss + write(*,*) 'Failed due to high angular momentum error: ', dLmag lmerge = .true. end if end if