From 2e657b10ad84ee06ae6c5d25ca2d8a4d518779f1 Mon Sep 17 00:00:00 2001 From: David A Minton Date: Mon, 13 Sep 2021 17:21:11 -0400 Subject: [PATCH] Fixed reading in test particles to take in name not id. --- .../symba_swifter_comparison/8pl_16tp_encounters/init_cond.py | 2 +- src/io/io.f90 | 4 ++-- 2 files changed, 3 insertions(+), 3 deletions(-) diff --git a/examples/symba_swifter_comparison/8pl_16tp_encounters/init_cond.py b/examples/symba_swifter_comparison/8pl_16tp_encounters/init_cond.py index 425ea1b73..c51ff47cb 100755 --- a/examples/symba_swifter_comparison/8pl_16tp_encounters/init_cond.py +++ b/examples/symba_swifter_comparison/8pl_16tp_encounters/init_cond.py @@ -28,7 +28,7 @@ sim.param['T0'] = 0.0 sim.param['DT'] = 1.0 sim.param['TSTOP'] = 365.25e1 -sim.param['ISTEP_OUT'] = 11 +sim.param['ISTEP_OUT'] = 1 sim.param['ISTEP_DUMP'] = 1 sim.param['CHK_QMIN_COORD'] = "HELIO" sim.param['CHK_QMIN'] = swiftest.RSun / swiftest.AU2M diff --git a/src/io/io.f90 b/src/io/io.f90 index eacaacf48..f04c07e4f 100644 --- a/src/io/io.f90 +++ b/src/io/io.f90 @@ -1202,13 +1202,13 @@ module function io_read_frame_body(self, iu, param) result(ierr) else read(iu, *, err = 667, iomsg = errmsg) name(i), val end if - call self%info(i)%set_value(name=name(i)) self%Gmass(i) = real(val, kind=DP) self%mass(i) = real(val / param%GU, kind=DP) read(iu, *, err = 667, iomsg = errmsg) self%radius(i) class is (swiftest_tp) - read(iu, *, err = 667, iomsg = errmsg) self%id(i) + read(iu, *, err = 667, iomsg = errmsg) name(i) end select + call self%info(i)%set_value(name=name(i)) select case(param%in_form) case (XV)