diff --git a/src/symba/symba_util.f90 b/src/symba/symba_util.f90 index 06d75bac8..157c3f5af 100644 --- a/src/symba/symba_util.f90 +++ b/src/symba/symba_util.f90 @@ -683,7 +683,7 @@ module subroutine symba_util_rearray_pl(self, system, param) allocate(levelg_orig_pl, source=pl%levelg) allocate(levelm_orig_pl, source=pl%levelm) allocate(nplenc_orig_pl, source=pl%nplenc) - lencounter = pl%encounter_check(param, system, param%dt, 0) + lencounter = pl%encounter_check(param, system, param%dt, system%irec) if (system%tp%nbody > 0) then select type(tp => system%tp) class is (symba_tp) @@ -691,7 +691,7 @@ module subroutine symba_util_rearray_pl(self, system, param) allocate(levelg_orig_tp, source=tp%levelg) allocate(levelm_orig_tp, source=tp%levelm) allocate(nplenc_orig_tp, source=tp%nplenc) - lencounter = tp%encounter_check(param, system, param%dt, 0) + lencounter = tp%encounter_check(param, system, param%dt, system%irec) call move_alloc(levelg_orig_tp, tp%levelg) call move_alloc(levelm_orig_tp, tp%levelm) call move_alloc(nplenc_orig_tp, tp%nplenc)