From b4ef78686d6660b87ba2f4415745ef2bb29df17d Mon Sep 17 00:00:00 2001 From: David Minton Date: Mon, 5 Sep 2022 16:28:13 -0400 Subject: [PATCH] Fixed integer type errors --- src/symba/symba_step.f90 | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) 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