Fixed array index bug introduced in the last fix

MintonGroup · Aug 20, 2021 · 971522b · 971522b
1 parent a252b6f
commit 971522b
Showing 1 changed file with 2 additions and 2 deletions.
diff --git 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