Removed unnecessary check for size of plidx and tpidx, as they cause …

…a segfault when not present
MintonGroup · Aug 10, 2021 · 156fa2f · 156fa2f
1 parent 07a458f
commit 156fa2f
Showing 1 changed file with 2 additions and 2 deletions.
diff --git 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)