From 5a0fc9eebac7e37fdb34d8cd9b98019336c3732e Mon Sep 17 00:00:00 2001
From: Paul Romano <paul.k.romano@gmail.com>
Date: Wed, 8 Aug 2018 10:06:00 -0500
Subject: [PATCH] Convert whitespace to blanks when reading arrays from XML

---
 src/xml_interface.F90 | 19 +++++++++++++++++++
 1 file changed, 19 insertions(+)

diff --git a/src/xml_interface.F90 b/src/xml_interface.F90
index a9dc5224bc..0e08f75d1e 100644
--- a/src/xml_interface.F90
+++ b/src/xml_interface.F90
@@ -261,6 +261,7 @@ contains
 
     ! Get value of text node/attribute
     str = node_value_string(node, name)
+    call whitespace_to_blanks(str)
 
     ! Read numbers into array
     read(UNIT=str, FMT=*, IOSTAT=stat) array
@@ -283,6 +284,7 @@ contains
 
     ! Get value of text node/attribute
     str = node_value_string(node, name)
+    call whitespace_to_blanks(str)
 
     ! Read numbers into array
     read(UNIT=str, FMT=*, IOSTAT=stat) array
@@ -333,4 +335,21 @@ contains
     end if
   end subroutine get_node_array_string
 
+!===============================================================================
+! WHITESPACE_TO_BLANKS converts all whitespace to blanks
+!===============================================================================
+
+  subroutine whitespace_to_blanks(str)
+    character(len=*, kind=C_CHAR), intent(inout) :: str
+
+    integer :: i
+
+    do i = 1, len(str)
+      select case (str(i:i))
+      case (C_NEW_LINE, C_HORIZONTAL_TAB, C_CARRIAGE_RETURN)
+        str(i:i) = ' '
+      end select
+    end do
+  end subroutine
+
 end module xml_interface