crp/OpenMC
1
0
Fork 0
mirror of https://github.com/openmc-dev/openmc.git synced 2026-07-28 14:15:42 -04:00
Code Issues Projects Releases Packages Wiki Activity Actions 5

Moved cross section summary output into cross_sections.out

Browse source
This commit is contained in:
Paul Romano 2012-02-25 23:24:14 -05:00
parent 80c00b25a4
commit 6418ad2ebb
4 changed files with 33 additions and 7 deletions
Download patch file Download diff file Expand all files Collapse all files

6
src/ace.F90
View file

@ -137,7 +137,7 @@ contains
! READ ALL ACE CROSS SECTION TABLES
! display header in summary.out
if (master) call header("CROSS SECTION TABLES", unit=UNIT_SUMMARY)
if (master) call header("CROSS SECTION TABLES", unit=UNIT_XS)
call dict_create(already_read)
@ -156,9 +156,9 @@ contains
call read_ace_table(index_nuclides, index_list)
! Print out information on table to summary.out file
! Print out information on table to cross_sections.out file
nuc => nuclides(index_nuclides)
if (master) call print_nuclide(nuc, unit=UNIT_SUMMARY)
if (master) call print_nuclide(nuc, unit=UNIT_XS)
call dict_add_key(already_read, name, 0)
call dict_add_key(already_read, alias, 0)

1
src/constants.F90
View file

@ -318,5 +318,6 @@ module constants
integer, parameter :: UNIT_SUMMARY = 11 ! unit # for writing summary file
integer, parameter :: UNIT_TALLY = 12 ! unit # for writing tally file
integer, parameter :: UNIT_PLOT = 13 ! unit # for writing plot file
integer, parameter :: UNIT_XS = 14 ! unit # for writing xs summary file
end module constants

6
src/initialize.F90
View file

@ -14,7 +14,8 @@ module initialize
use input_xml, only: read_input_xml, read_cross_sections_xml, &
cells_in_univ_dict
use output, only: title, header, print_summary, print_geometry, &
print_plot, create_summary_file
print_plot, create_summary_file, &
create_xs_summary_file
use random_lcg, only: initialize_prng
use source, only: initialize_source
use string, only: to_str, starts_with, ends_with, lower_case
@ -56,8 +57,9 @@ contains
call read_command_line()
if (master) then
! Create summary.out file
! Create output files
call create_summary_file()
call create_xs_summary_file()
#ifdef HDF5
! Open HDF5 output file for writing and write header information

27
src/output.F90
View file

@ -968,7 +968,6 @@ contains
subroutine create_summary_file()
integer :: io_error
logical :: file_exists ! does log file already exist?
character(MAX_FILE_LEN) :: path ! path of summary file
@ -983,8 +982,32 @@ contains
! Open log file for writing
open(UNIT=UNIT_SUMMARY, FILE=path, STATUS='replace', &
ACTION='write', IOSTAT=io_error)
ACTION='write')
end subroutine create_summary_file
!===============================================================================
! CREATE_XS_SUMMARY_FILE
!===============================================================================
subroutine create_xs_summary_file()
logical :: file_exists ! does log file already exist?
character(MAX_FILE_LEN) :: path ! path of summary file
! Create filename for log file
path = "cross_sections.out"
! Check if log file already exists
inquire(FILE=path, EXIST=file_exists)
if (file_exists) then
! Possibly copy old log file
end if
! Open log file for writing
open(UNIT=UNIT_XS, FILE=path, STATUS='replace', &
ACTION='write')
end subroutine create_xs_summary_file
end module output