Skip to content
This repository was archived by the owner on Aug 28, 2024. It is now read-only.

Commit

Permalink
Browse files Browse the repository at this point in the history
Fixed incorrect/obsolete comments
  • Loading branch information
daminton committed May 12, 2021
1 parent 6f79fa5 commit 9fdfa1f
Showing 1 changed file with 1 addition and 3 deletions.
4 changes: 1 addition & 3 deletions src/symba/symba_frag_pos.f90
Original file line number Diff line number Diff line change
Expand Up @@ -426,10 +426,8 @@ function symba_frag_pos_fragment_velocity(nfrag, m_frag, x_frag, v_r_unit, Lambd
f_vec_const(1:3) = Gam(:) + tau(:)
f_vec_const(4) = Beta - Lambda

! Our initial guess for the first 4 fragments and the values of will be based on an equipartition of KE with some random variation
! The secant method requires two guesses, so we will use small values to start it off
v_r_mag_01(:) = 0.0_DP
! The secant method requires two guesses, so we will use a small random variate to update the initial guesses
!call random_number(v_r_mag_02(:))
v_r_mag_02(:) = 1e-2_DP * sum(v_r_mag(:)) / (nfrag - 4)

f_vec_01(:) = f_vec_const(:)
Expand Down

0 comments on commit 9fdfa1f

Please sign in to comment.