From ec3c51e575112b51b99a8de15f39e7d6565984eb Mon Sep 17 00:00:00 2001 From: Patrick Shriwise Date: Sat, 13 Oct 2018 22:01:38 -0500 Subject: [PATCH] Removing unused variables in read_plots_xml. --- src/input_xml.F90 | 16 ---------------- 1 file changed, 16 deletions(-) diff --git a/src/input_xml.F90 b/src/input_xml.F90 index 4c131f0bd2..6476f7d7f1 100644 --- a/src/input_xml.F90 +++ b/src/input_xml.F90 @@ -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"