From 1e5106f60153ab3a5b0ea411d07d830a8f491190 Mon Sep 17 00:00:00 2001
From: Martin Diehl <m.diehl@mpie.de>
Date: Sat, 2 Jun 2018 23:10:38 +0200
Subject: [PATCH] return empty string array if nothing found (plasticity detect
 changes failed)

---
 src/list.f90 | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/src/list.f90 b/src/list.f90
index 973e21dc2..26bfa151a 100644
--- a/src/list.f90
+++ b/src/list.f90
@@ -408,7 +408,10 @@ end function getFloatArray
 
       tmp => this%next
       do 
-        if (.not. associated(tmp)) exit
+        if (.not. associated(tmp)) then
+          if (.not. allocated(getStrings)) allocate(getStrings(0),source=str)
+          exit
+        endif
         if (trim(IO_stringValue(tmp%string%val,tmp%string%pos,1))==trim(key)) then
           if (tmp%string%pos(1) < 2) print*, "NOT WORKKING"
           str = IO_StringValue(tmp%string%val,tmp%string%pos,2)