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