Fixed bad loop index

MintonGroup · Sep 27, 2021 · decdf50 · decdf50
1 parent f501980
commit decdf50
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/src/encounter/encounter.f90 b/src/encounter/encounter.f90
@@ -158,7 +158,7 @@ module subroutine encounter_check_all_triangular_pltp(npl, ntp, xpl, vpl, xtp, v
       !$omp shared(npl, ntp, xpl, vpl, xtp, vtp, renc, dt, lenc, ind_arr) &
       !$omp lastprivate(xr, yr, zr, vxr, vyr, vzr, lencounteri, lvdotri)
       do i = 1, npl
-         do concurrent(j = 1:npl)
+         do concurrent(j = 1:ntp)
             xr = xtp(1, j) - xpl(1, i)
             yr = xtp(2, j) - xpl(2, i)
             zr = xtp(3, j) - xpl(3, i)