From 90206bac23f556e82197c596d406b7c383ebc232 Mon Sep 17 00:00:00 2001 From: David Minton Date: Tue, 11 May 2021 17:13:55 -0400 Subject: [PATCH] Removed cruft --- src/symba/symba_frag_pos.f90 | 3 +-- 1 file changed, 1 insertion(+), 2 deletions(-) diff --git a/src/symba/symba_frag_pos.f90 b/src/symba/symba_frag_pos.f90 index 6584d3abf..6a913be49 100644 --- a/src/symba/symba_frag_pos.f90 +++ b/src/symba/symba_frag_pos.f90 @@ -319,8 +319,7 @@ subroutine symba_frag_pos_ang_mtm(nfrag, xcom, vcom, L_orb, L_spin, m_frag, rad_ do i = 1, nfrag v_frag(:, i) = v_frag(:, i) + v_t_mag(i) * v_t_unit(:, i) end do - !call symba_frag_pos_com_adjust(vcom, m_frag, v_frag) - + return end subroutine symba_frag_pos_ang_mtm