Fixed array indexing problem that occurs when encountering bodies are removed from the list

MintonGroup · Oct 1, 2021 · db7884b · db7884b
1 parent 1c8d8b0
commit db7884b
Showing 1 changed file with 2 additions and 0 deletions.
diff --git 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