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