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

Removing unused variables in read_plots_xml.

Browse source
This commit is contained in:
Patrick Shriwise 2018-10-13 22:01:38 -05:00
parent 288937a5ef
commit ec3c51e575
1 changed files with 0 additions and 16 deletions
Download patch file Download diff file Expand all files Collapse all files

16
src/input_xml.F90
View file

@ -2038,26 +2038,10 @@ contains
subroutine read_plots_xml()
integer :: i, j
integer :: n_cols, col_id, n_comp, n_masks, n_meshlines
integer :: meshid
integer(C_INT) :: err, idx
integer, allocatable :: iarray(:)
logical :: file_exists ! does plots.xml file exist?
character(MAX_LINE_LEN) :: filename ! absolute path to plots.xml
character(MAX_LINE_LEN) :: temp_str
character(MAX_WORD_LEN) :: meshtype
type(XMLDocument) :: doc
type(XMLNode) :: root
type(XMLNode) :: node_plot
type(XMLNode) :: node_col
type(XMLNode) :: node_mask
type(XMLNode) :: node_meshlines
type(XMLNode), allocatable :: node_plot_list(:)
type(XMLNode), allocatable :: node_col_list(:)
type(XMLNode), allocatable :: node_mask_list(:)
type(XMLNode), allocatable :: node_meshline_list(:)
! Check if plots.xml exists
filename = trim(path_input) // "plots.xml"