From f61f22924a5ed48bda0ab7c76da09d2b6af24e22 Mon Sep 17 00:00:00 2001
From: Martin Diehl <m.diehl@mpie.de>
Date: Thu, 21 Jun 2018 22:38:06 +0200
Subject: [PATCH] empty string list as default value simplifies logic

---
 src/crystallite.f90 | 4 +---
 1 file changed, 1 insertion(+), 3 deletions(-)

diff --git a/src/crystallite.f90 b/src/crystallite.f90
index 17cf1570d..53d38a770 100644
--- a/src/crystallite.f90
+++ b/src/crystallite.f90
@@ -268,8 +268,7 @@ subroutine crystallite_init
 
 
  do c = 1_pInt, material_Ncrystallite
-   if (crystalliteConfig(c)%keyExists('(output)') )then
-   str =  crystalliteConfig(c)%getStrings('(output)')
+   str =  crystalliteConfig(c)%getStrings('(output)',defaultVal=[character(len=65536)::])
    do o = 1_pInt, size(str)
      crystallite_output(o,c) = str(o)
      outputName: select case(str(o))
@@ -321,7 +320,6 @@ subroutine crystallite_init
              call IO_error(105_pInt,ext_msg=tag//' (Crystallite)')
          end select outputName
    enddo
-   endif
  enddo