From db7884b8d38f1f48211c1b3c05ab16e5985ecbdb Mon Sep 17 00:00:00 2001 From: David Minton Date: Fri, 1 Oct 2021 03:15:25 -0400 Subject: [PATCH] Fixed array indexing problem that occurs when encountering bodies are removed from the list --- src/symba/symba_util.f90 | 2 ++ 1 file changed, 2 insertions(+) diff --git a/src/symba/symba_util.f90 b/src/symba/symba_util.f90 index df33f7568..10098125c 100644 --- a/src/symba/symba_util.f90 +++ b/src/symba/symba_util.f90 @@ -539,6 +539,8 @@ module subroutine symba_util_rearray_pl(self, system, param) system%plplenc_list%t(k) = plplenc_old%t(k) system%plplenc_list%level(k) = plplenc_old%level(k) end if + system%plplenc_list%index1(k) = findloc(pl%id(1:npl), system%plplenc_list%id1(k), dim=1) + system%plplenc_list%index2(k) = findloc(pl%id(1:npl), system%plplenc_list%id2(k), dim=1) end do end if end associate