From 13f6a8a62a4dbe8155f3bf55112d24f11de88fc9 Mon Sep 17 00:00:00 2001 From: David A Minton Date: Mon, 20 Feb 2023 18:28:13 -0500 Subject: [PATCH] Fixed problem that was causing bodies to overlap --- src/fraggle/fraggle_generate.f90 | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/fraggle/fraggle_generate.f90 b/src/fraggle/fraggle_generate.f90 index 911065308..5ef782c0a 100644 --- a/src/fraggle/fraggle_generate.f90 +++ b/src/fraggle/fraggle_generate.f90 @@ -420,7 +420,7 @@ module subroutine fraggle_generate_pos_vec(collider, nbody_system, param, lfailu if (.not.loverlap(j)) cycle loverlap(j) = .false. ! Check for overlaps between fragments - do i = j + 1, nfrag + do concurrent(i = 1:nfrag, i/=j) dis = .mag.(fragments%rc(:,j) - fragments%rc(:,i)) loverlap(j) = loverlap(j) .or. (dis <= rbuffer * (fragments%radius(i) + fragments%radius(j))) end do