From 40fb29b819a13f23bcf5b958d79499a48d1a8cac Mon Sep 17 00:00:00 2001
From: Bryan Herman <bherman@mit.edu>
Date: Wed, 5 Mar 2014 17:21:22 -0500
Subject: [PATCH] removed check variable to address @paulromano comment

---
 src/input_xml.F90 | 6 ++----
 1 file changed, 2 insertions(+), 4 deletions(-)

diff --git a/src/input_xml.F90 b/src/input_xml.F90
index 03ad982cbc..fffd4a54e7 100644
--- a/src/input_xml.F90
+++ b/src/input_xml.F90
@@ -58,7 +58,6 @@ contains
     integer(8) :: temp_long
     integer :: n_tracks
     logical :: file_exists
-    logical :: check
     character(MAX_FILE_LEN) :: env_variable
     character(MAX_WORD_LEN) :: type
     character(MAX_LINE_LEN) :: filename
@@ -702,10 +701,9 @@ contains
     ! make sure that the sourcepoint batch numbers are contained in the
     ! statepoint list
     if (.not. source_separate) then
-      check = .true.
       do i = 1, n_source_points
-        check = statepoint_batch % contains(sourcepoint_batch % get_item(i))
-        if (.not. check) then
+        if (.not. statepoint_batch % contains(sourcepoint_batch % &
+            get_item(i))) then
           message = 'Sourcepoint batches are not a subset&
                     & of statepoint batches.'
           call fatal_error()