mirror of
https://github.com/openmc-dev/openmc.git
synced 2026-07-28 14:15:42 -04:00
Fix indexing error in FilterUniverse
This commit is contained in:
parent
90c3e37180
commit
700533d44d
1 changed files with 1 additions and 1 deletions
|
|
@ -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
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue