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

Added output messages for reading input files.

Browse source
This commit is contained in:
Paul Romano 2011-09-11 14:44:19 -04:00
parent eea8880b28
commit e8cff2565d
2 changed files with 22 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

1
src/DEPENDENCIES
View file

@ -72,6 +72,7 @@ input_xml.o: datatypes.o
input_xml.o: error.o
input_xml.o: geometry_header.o
input_xml.o: global.o
input_xml.o: output.o
input_xml.o: string.o
input_xml.o: xml_geometry.o
input_xml.o: xml_materials.o

21
src/input_xml.f90
View file

@ -6,6 +6,7 @@ module input_xml
use error, only: fatal_error
use geometry_header, only: Cell, Surface, Lattice
use global
use output, only: message
use string, only: lower_case, int_to_str
implicit none
@ -43,6 +44,11 @@ contains
character(MAX_LINE_LEN) :: msg
character(MAX_LINE_LEN) :: filename
! Display output message
msg = "Reading settings XML file..."
call message(msg, 5)
! Parse settings.xml file
filename = trim(path_input) // "settings.xml"
call read_xml_file_settings_t(filename)
@ -112,9 +118,14 @@ contains
type(Surface), pointer :: s => null()
type(Lattice), pointer :: l => null()
! Display output message
msg = "Reading geometry XML file..."
call message(msg, 5)
! ==========================================================================
! READ CELLS FROM GEOMETRY.XML
! Parse geometry.xml file
filename = trim(path_input) // "geometry.xml"
call read_xml_file_geometry_t(filename)
@ -368,6 +379,11 @@ contains
type(Material), pointer :: m => null()
type(nuclide_xml), pointer :: nuc => null()
! Display output message
msg = "Reading materials XML file..."
call message(msg, 5)
! Parse materials.xml file
filename = trim(path_input) // "materials.xml"
call read_xml_file_materials_t(filename)
@ -462,6 +478,11 @@ contains
character(MAX_LINE_LEN) :: msg
type(Tally), pointer :: t => null()
! Display output message
msg = "Reading tallies XML file..."
call message(msg, 5)
! Parse tallies.xml file
filename = trim(path_input) // "tallies.xml"
call read_xml_file_tallies_t(filename)