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

Commit

Permalink
Removed commented out old cruft
Browse files Browse the repository at this point in the history
  • Loading branch information
daminton committed Jul 26, 2021
1 parent bb3187e commit b55887d
Showing 1 changed file with 0 additions and 3 deletions.
3 changes: 0 additions & 3 deletions src/kick/kick.f90
Original file line number Diff line number Diff line change
Expand Up @@ -56,9 +56,6 @@ module pure subroutine kick_getacch_int_tp(self, GMpl, xhp, npl)
acc(:) = 0.0_DP
do j = 1, npl
dx(:) = tp%xh(:,i) - xhp(:, j)
!rji2 = dot_product(dx(:), dx(:))
!irij3 = 1.0_DP / (rji2 * sqrt(rji2))
!fac = GMpl(j) * irij3
r2 = dot_product(dx(:), dx(:))
fac = GMpl(j) / (r2 * sqrt(r2))
acc(:) = acc(:) - fac * dx(:)
Expand Down

0 comments on commit b55887d

Please sign in to comment.