Fix indexing mistake in Poisson_solve_DAGE

f-fathurrahman · Jun 7, 2020 · b42c1f5 · b42c1f5
1 parent 24759e2
commit b42c1f5
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/src/Poisson_solve_DAGE.f90 b/src/Poisson_solve_DAGE.f90
@@ -295,7 +295,7 @@ SUBROUTINE Poisson_solve_DAGE( density, potential )
       a = lin2xyz(1,ip)
       b = lin2xyz(2,ip)
       g = lin2xyz(3,ip)
-      potential(ip) = potential(ip) + w_t(i_t)*T_b2(a,b,g)*2.d0/sqrt(PI)
+      potential(ip) = potential(ip) + w_t(i_t)*T_b2(a,g,b)*2.d0/sqrt(PI)
     ENDDO 
 
   ENDDO