Merge branch 'PnInput' of github.com:nelsonag/openmc into PnInput

This commit is contained in:
Adam Nelson 2012-12-07 11:41:38 -05:00
commit d166205da0
2 changed files with 1 additions and 8 deletions

View file

@ -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

View file

@ -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