From 693bf2e9d17953ed255242769e1c2aaff9ac1c9d Mon Sep 17 00:00:00 2001 From: David A Minton Date: Wed, 7 Jul 2021 14:56:47 -0400 Subject: [PATCH] Fixed incorrect index bug --- src/helio/helio_getacch.f90 | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/helio/helio_getacch.f90 b/src/helio/helio_getacch.f90 index 638583df1..42b1fc918 100644 --- a/src/helio/helio_getacch.f90 +++ b/src/helio/helio_getacch.f90 @@ -86,7 +86,7 @@ subroutine helio_getacch_int_pl(pl, t) faci = pl%Gmass(i) * irij3 facj = pl%Gmass(j) * irij3 pl%ahi(:,i) = pl%ahi(:,i) + facj * dx(:) - pl%ahi(:,i) = pl%ahi(:,j) - faci * dx(:) + pl%ahi(:,j) = pl%ahi(:,j) - faci * dx(:) end do end do end associate