From 156fa2f260b2d7f4cd881ebdff3f52e51e2a7811 Mon Sep 17 00:00:00 2001 From: David A Minton Date: Tue, 10 Aug 2021 13:40:26 -0400 Subject: [PATCH] Removed unnecessary check for size of plidx and tpidx, as they cause a segfault when not present --- src/symba/symba_io.f90 | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) 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)