From 971522bb815c5ac4ca08a5b0b661baada1313850 Mon Sep 17 00:00:00 2001 From: David A Minton Date: Fri, 20 Aug 2021 15:50:35 -0400 Subject: [PATCH] Fixed array index bug introduced in the last fix --- src/symba/symba_collision.f90 | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/src/symba/symba_collision.f90 b/src/symba/symba_collision.f90 index 2f2b5c541..b259dfba9 100644 --- a/src/symba/symba_collision.f90 +++ b/src/symba/symba_collision.f90 @@ -290,11 +290,11 @@ module function symba_collision_casemerge(system, param, family, x, v, mass, rad if (i == ibiggest) cycle if (system%plplenc_list%id1(k) == pl%id(i)) then system%plplenc_list%id1(k) = pl%id(ibiggest) - system%plplenc_list%index1 = i + system%plplenc_list%index1(k) = i end if if (system%plplenc_list%id2(k) == pl%id(i)) then system%plplenc_list%id2(k) = pl%id(ibiggest) - system%plplenc_list%index2 = i + system%plplenc_list%index2(k) = i end if if (system%plplenc_list%id1(k) == system%plplenc_list%id2(k)) system%plplenc_list%status(k) = INACTIVE end do