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

Changed plot.xml to plots.xml and renamed root element accordingly.

Browse source
This commit is contained in:
Paul Romano 2012-02-28 18:37:24 -05:00
parent 7f32a44d49
commit c3a4cf23a9
2 changed files with 13 additions and 13 deletions
Download patch file Download diff file Expand all files Collapse all files

24
src/input_xml.F90
View file

@ -32,7 +32,7 @@ contains
call read_geometry_xml()
call read_materials_xml()
call read_tallies_xml()
if (plotting) call read_plot_xml()
if (plotting) call read_plots_xml()
end subroutine read_input_xml
@ -1104,23 +1104,23 @@ contains
end subroutine read_tallies_xml
!===============================================================================
! READ_PLOT_XML reads data from a plot.xml file
! READ_PLOTS_XML reads data from a plots.xml file
!===============================================================================
subroutine read_plot_xml
subroutine read_plots_xml
use xml_data_plot_t
use xml_data_plots_t
integer i
logical :: file_exists ! does plot.xml file exist?
character(MAX_LINE_LEN) :: filename ! absolute path to plot.xml
logical :: file_exists ! does plots.xml file exist?
character(MAX_LINE_LEN) :: filename ! absolute path to plots.xml
type(Plot), pointer :: pl => null()
! Check if plot.xml exists
filename = trim(path_input) // "plot.xml"
! Check if plots.xml exists
filename = trim(path_input) // "plots.xml"
inquire(FILE=filename, EXIST=file_exists)
if (.not. file_exists) then
message = "Plot XML file '" // trim(filename) // "' does not exist!"
message = "Plots XML file '" // trim(filename) // "' does not exist!"
call fatal_error()
end if
@ -1128,8 +1128,8 @@ contains
message = "Reading plot XML file..."
call write_message(5)
! Parse plot.xml file
call read_xml_file_plot_t(filename)
! Parse plots.xml file
call read_xml_file_plots_t(filename)
! Allocate plots array
n_plots = size(plot_)
@ -1208,7 +1208,7 @@ contains
end do
end subroutine read_plot_xml
end subroutine read_plots_xml
!===============================================================================
! READ_CROSS_SECTIONS_XML reads information from a cross_sections.xml file. This

2
src/xml-fortran/templates/plot_t.xml → src/xml-fortran/templates/plots_t.xml
View file

@ -1,7 +1,7 @@
<?xml version="1.0"?>
<template>
<options rootname="plot" />
<options rootname="plots" />
<typedef name="plot_xml">
<component name="id" type="integer" />