diff --git a/src/symba/symba_io.f90 b/src/symba/symba_io.f90
index e9e52fc2d..97e5798c2 100644
--- a/src/symba/symba_io.f90
+++ b/src/symba/symba_io.f90
@@ -55,7 +55,7 @@ module subroutine symba_io_dump_particle_info(system, param, lincludecb, tpidx,
          end if
       end if
 
-      if (present(plidx) .and. (system%pl%nbody > 0) .and. size(plidx) > 0) then
+      if (present(plidx) .and. (system%pl%nbody > 0)) then
          select type(pl => system%pl)
          class is (symba_pl)
             do i = 1, size(plidx)
@@ -65,7 +65,7 @@ module subroutine symba_io_dump_particle_info(system, param, lincludecb, tpidx,
          end select
       end if
 
-      if (present(tpidx) .and. (system%tp%nbody > 0) .and. size(tpidx) > 0) then
+      if (present(tpidx) .and. (system%tp%nbody > 0)) then
          select type(tp => system%tp)
          class is (symba_tp)
             do i = 1, size(tpidx)