Fixed integer type errors

MintonGroup · Sep 5, 2022 · b4ef786 · b4ef786
1 parent 374b0a7
commit b4ef786
Showing 1 changed file with 3 additions and 3 deletions.
diff --git 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