From decdf50dc9e07f0df0b5fab9d08ba7e5e749b9b6 Mon Sep 17 00:00:00 2001 From: David A Minton Date: Mon, 27 Sep 2021 17:25:43 -0400 Subject: [PATCH] Fixed bad loop index --- src/encounter/encounter.f90 | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/encounter/encounter.f90 b/src/encounter/encounter.f90 index 56e4aceb9..e2830445b 100644 --- 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)