From fa6e88970cf93f219dc939f51d209d0b37895b36 Mon Sep 17 00:00:00 2001
From: Martin Diehl <mail@martin-diehl.net>
Date: Mon, 15 Jul 2019 13:53:34 -0700
Subject: [PATCH] avoid empty entries

---
 src/config.f90 | 15 ++++++++++-----
 1 file changed, 10 insertions(+), 5 deletions(-)

diff --git a/src/config.f90 b/src/config.f90
index 85efcb82f..90233057c 100644
--- a/src/config.f90
+++ b/src/config.f90
@@ -97,11 +97,16 @@ subroutine config_init
 
   enddo
  
-  if (size(config_homogenization) < 1) call IO_error(160,ext_msg='<homogenization>')
-  if (size(config_microstructure) < 1) call IO_error(160,ext_msg='<microstructure>')
-  if (size(config_crystallite)    < 1) call IO_error(160,ext_msg='<crystallite>')
-  if (size(config_phase)          < 1) call IO_error(160,ext_msg='<phase>')
-  if (size(config_texture)        < 1) call IO_error(160,ext_msg='<texture>')
+  if (.not. allocated(config_homogenization) .or. size(config_homogenization) < 1) &
+    call IO_error(160,ext_msg='<homogenization>')
+  if (.not. allocated(config_microstructure) .or. size(config_microstructure) < 1) &
+    call IO_error(160,ext_msg='<microstructure>')
+  if (.not. allocated(config_crystallite)    .or. size(config_crystallite)    < 1) &
+    call IO_error(160,ext_msg='<crystallite>')
+  if (.not. allocated(config_phase)          .or. size(config_phase)          < 1) &
+    call IO_error(160,ext_msg='<phase>')
+  if (.not. allocated(config_texture)        .or. size(config_texture)        < 1) &
+    call IO_error(160,ext_msg='<texture>')
  
  
    inquire(file='numerics.config', exist=fileExists)