From af6b4eaffa96671ae013fbe725016cb6342e611d Mon Sep 17 00:00:00 2001
From: Bryan Herman <bherman@mit.edu>
Date: Thu, 8 May 2014 14:22:12 -0400
Subject: [PATCH] initialized list

---
 src/xml/openmc_fox.F90 | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/src/xml/openmc_fox.F90 b/src/xml/openmc_fox.F90
index fd4165efd4..461c6bc2b7 100644
--- a/src/xml/openmc_fox.F90
+++ b/src/xml/openmc_fox.F90
@@ -41,6 +41,8 @@ module openmc_fox
     logical :: doneChildren, doneAttributes, allElements
     integer :: i, i_tree
 
+    list => null()
+
     if (.not.associated(doc)) then
       if (getFoX_checks().or.FoX_NODE_IS_NULL<200) then
   call throw_exception(FoX_NODE_IS_NULL, "getElementsByTagName", ex)