mirror of
https://github.com/openmc-dev/openmc.git
synced 2026-07-29 06:35:48 -04:00
Merge branch 'PnInput' of github.com:nelsonag/openmc into PnInput
This commit is contained in:
commit
d166205da0
2 changed files with 1 additions and 8 deletions
|
|
@ -140,6 +140,7 @@ contains
|
|||
! Allocate array for batch keff and entropy
|
||||
allocate(k_batch(n_batches))
|
||||
allocate(entropy(n_batches))
|
||||
entropy = ZERO
|
||||
end if
|
||||
|
||||
! Fixed source calculation information
|
||||
|
|
|
|||
|
|
@ -1047,14 +1047,6 @@ contains
|
|||
call write_message(1)
|
||||
end if
|
||||
|
||||
! For eigenvalue calculations, turn on tallies if we've reached active
|
||||
! batches
|
||||
if (current_batch == n_inactive) then
|
||||
tallies_on = .true.
|
||||
active_batches = .true.
|
||||
call setup_active_usertallies()
|
||||
end if
|
||||
|
||||
! Add to number of realizations
|
||||
if (current_batch > n_inactive) then
|
||||
n = n + 1
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue