diff --git a/src/symba/symba_step.f90 b/src/symba/symba_step.f90 index 368548832..c5e37c576 100644 --- a/src/symba/symba_step.f90 +++ b/src/symba/symba_step.f90 @@ -265,8 +265,8 @@ module subroutine symba_step_reset_system(self, param) class is (symba_tp) associate(npl => pl%nbody, ntp => tp%nbody) nenc_old = system%plplenc_list%nenc - call system%plplenc_list%setup(0) - call system%plplcollision_list%setup(0) + call system%plplenc_list%setup(0_I8B) + call system%plplcollision_list%setup(0_I8B) if (npl > 0) then pl%lcollision(1:npl) = .false. call pl%reset_kinship([(i, i=1, npl)]) @@ -284,7 +284,7 @@ module subroutine symba_step_reset_system(self, param) end if nenc_old = system%pltpenc_list%nenc - call system%pltpenc_list%setup(0) + call system%pltpenc_list%setup(0_I8B) if (ntp > 0) then tp%nplenc(1:ntp) = 0 tp%levelg(1:ntp) = -1