crp/OpenMC
1
0
Fork 0
mirror of https://github.com/openmc-dev/openmc.git synced 2026-07-27 21:55:41 -04:00
Code Issues Projects Releases Packages Wiki Activity Actions 5

Moved column output in run_criticality to output module.

Browse source
This commit is contained in:
Paul Romano 2012-04-12 16:50:47 -04:00
parent c5e7ac4078
commit 653535d08b
2 changed files with 23 additions and 12 deletions
Download patch file Download diff file Expand all files Collapse all files

14
src/criticality.F90
View file

@ -4,7 +4,7 @@ module criticality
use global
use intercycle, only: shannon_entropy, calculate_keff, synchronize_bank, &
count_source_for_ufs
use output, only: write_message, header
use output, only: write_message, header, print_columns
use physics, only: transport
use source, only: get_source_particle
use string, only: to_str
@ -31,17 +31,7 @@ contains
allocate(p)
! Display column titles
if (entropy_on) then
message = " Batch k(batch) Entropy Average k"
call write_message(1)
message = " ===== ======== ======= ==================="
call write_message(1)
else
message = " Batch k(batch) Average k"
call write_message(1)
message = " ===== ======== ==================="
call write_message(1)
end if
call print_columns()
! ==========================================================================
! LOOP OVER BATCHES

21
src/output.F90
View file

@ -933,6 +933,27 @@ contains
end subroutine print_summary
!===============================================================================
! PRINT_COLUMNS displays a header listing what physical values will displayed
! below them
!===============================================================================
subroutine print_columns()
if (entropy_on) then
message = " Batch k(batch) Entropy Average k"
call write_message(1)
message = " ===== ======== ======= ==================="
call write_message(1)
else
message = " Batch k(batch) Average k"
call write_message(1)
message = " ===== ======== ==================="
call write_message(1)
end if
end subroutine print_columns
!===============================================================================
! PRINT_BATCH_KEFF displays the last batch's tallied value of the neutron
! multiplication factor as well as the average value if we're in active batches