From 700533d44d456d57ec509d37a8a5c5a57ea00317 Mon Sep 17 00:00:00 2001 From: Sterling Harper Date: Thu, 4 Oct 2018 13:33:41 -0400 Subject: [PATCH] Fix indexing error in FilterUniverse --- src/tallies/tally_filter_universe.F90 | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/tallies/tally_filter_universe.F90 b/src/tallies/tally_filter_universe.F90 index 39c1449b3d..9e0e09fcf3 100644 --- a/src/tallies/tally_filter_universe.F90 +++ b/src/tallies/tally_filter_universe.F90 @@ -78,7 +78,7 @@ contains allocate(universe_ids(size(this % universes))) do i = 1, size(this % universes) - universe_ids(i) = universe_id(this % universes(i)-1) + universe_ids(i) = universe_id(this % universes(i)) end do call write_dataset(filter_group, "bins", universe_ids) end subroutine to_statepoint_universe