From 18642cede964313c24c2cc3ba83a4d13563dbb4c Mon Sep 17 00:00:00 2001 From: Carlisle Wishard Date: Wed, 12 May 2021 10:09:21 -0400 Subject: [PATCH] fixed typo symba_frag_pos.f90 --- 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 f16ac7afc..1e150b3ca 100644 --- a/src/symba/symba_frag_pos.f90 +++ b/src/symba/symba_frag_pos.f90 @@ -395,7 +395,7 @@ subroutine symba_frag_pos_fragment_velocity(m_frag, x_frag, v_r_unit, Lambda, v_ real(DP), dimension(NDIM) :: Gam !! Sum of the radial momentum vector of i>4 fragments real(DP) :: Beta !! Sum of the radial kinetic energy of i>4 fragments real(DP), dimension(4) :: v_r_mag_01, v_r_mag_02 !! Two initial value guesses for the radial velocity magnitude of the first four fragments - real(DP), dimension(4) :: f_vec_01, v_vec_02 !! Equation vectors for initial value guesses 1 and 2 + real(DP), dimension(4) :: f_vec_01, f_vec_02 !! Equation vectors for initial value guesses 1 and 2 real(DP) :: f_1_01, f_1_02 !! Equation 1 for initial value guesses 1 and 2 : angular momentum in the x direction real(DP) :: f_2_01, f_2_02 !! Equation 2 for initial value guesses 1 and 2 : angular momentum in the y direction real(DP) :: f_3_01, f_3_02 !! Equation 3 for initial value guesses 1 and 2 : angular momentum in the z direction