From a592f2ad1501aa8cb8c7f4e813ea335628ab70e0 Mon Sep 17 00:00:00 2001
From: Paul Romano <paul.k.romano@gmail.com>
Date: Thu, 19 Nov 2015 07:16:48 -0600
Subject: [PATCH] Extend length of string for reading region specification to
 1000

---
 src/input_xml.F90 | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/input_xml.F90 b/src/input_xml.F90
index ae01b0b5cc..5449b169dd 100644
--- a/src/input_xml.F90
+++ b/src/input_xml.F90
@@ -994,7 +994,7 @@ contains
     logical :: boundary_exists
     character(MAX_LINE_LEN) :: filename
     character(MAX_WORD_LEN) :: word
-    character(MAX_LINE_LEN) :: region_spec
+    character(1000) :: region_spec
     type(Cell),     pointer :: c
     class(Surface), pointer :: s
     class(Lattice), pointer :: lat