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

Commit

Permalink
Fixed formatting
Browse files Browse the repository at this point in the history
  • Loading branch information
daminton committed May 25, 2021
1 parent 27e898e commit 5e07892
Showing 1 changed file with 1 addition and 1 deletion.
2 changes: 1 addition & 1 deletion src/symba/symba_discard_conserve_mtm.f90
Original file line number Diff line number Diff line change
Expand Up @@ -35,7 +35,7 @@ subroutine symba_discard_conserve_mtm(param, swiftest_plA, ipl, lescape_body)
Mescape = Mescape + mass(ipl)
call util_crossproduct(xb(:,ipl), vb(:,ipl), Lpl)
Lpl(:) = mass(ipl) * (Lpl(:) + radius(ipl)**2 * Ip(3,ipl) * rot(:, ipl))
Lescape(:) = Lescape(:) + Lpl(:)
Lescape(:) = Lescape(:) + Lpl(:)
do i = 2, npl
if (i == ipl) cycle
pe = pe - mass(i) * mass(ipl) / norm2(xb(:, ipl) - xb(:, i))
Expand Down

0 comments on commit 5e07892

Please sign in to comment.