From 0dcc67327950d7b20a67dc814af23e54836da938 Mon Sep 17 00:00:00 2001 From: David A Minton Date: Mon, 5 Dec 2022 13:33:07 -0500 Subject: [PATCH] More bugfixes for indexing the output files correctly --- src/io/io.f90 | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/io/io.f90 b/src/io/io.f90 index 69c32f5dc..0f8c6761c 100644 --- a/src/io/io.f90 +++ b/src/io/io.f90 @@ -287,7 +287,7 @@ module subroutine io_dump_storage(self, param) iloop_start = max(param%iloop - int(param%istep_out * param%dump_cadence, kind=I8B),1) do i = 1, param%dump_cadence - param%ioutput = int(iloop_start / param%istep_out, kind=I4B) + i + param%ioutput = max(int(iloop_start / param%istep_out, kind=I4B),1) + i if (allocated(self%frame(i)%item)) then select type(system => self%frame(i)%item) class is (swiftest_nbody_system)