mirror of
https://github.com/openmc-dev/openmc.git
synced 2026-07-27 21:55:41 -04:00
Avoid decay-rate segfault with non-fissionable nuc
This commit is contained in:
parent
a2a08f20b7
commit
4b60230935
1 changed files with 3 additions and 0 deletions
|
|
@ -736,6 +736,9 @@ contains
|
|||
! Check if tally is on a single nuclide
|
||||
if (i_nuclide > 0) then
|
||||
|
||||
! Ignore non-fissionable nuclides
|
||||
if (.not. nuclides(i_nuclide) % fissionable) cycle SCORE_LOOP
|
||||
|
||||
! Check if the delayed group filter is present
|
||||
if (dg_filter > 0) then
|
||||
select type(filt => filters(t % filter(dg_filter)) % obj)
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue