From e93e380ad33c14a25fe1b1d365851a47c958e7d9 Mon Sep 17 00:00:00 2001 From: Martin Diehl Date: Sat, 2 Jun 2018 21:00:47 +0200 Subject: [PATCH] output tag was empty: --- src/crystallite.f90 | 1 + 1 file changed, 1 insertion(+) diff --git a/src/crystallite.f90 b/src/crystallite.f90 index 787d56fd7..dd166fe4c 100644 --- a/src/crystallite.f90 +++ b/src/crystallite.f90 @@ -269,6 +269,7 @@ subroutine crystallite_init do c = 1_pInt, material_Ncrystallite str = crystalliteConfig(c)%getStrings('(output)')!,defaultVal=[]) do o = 1_pInt, size(str) + crystallite_output(o,c) = str(o) outputName: select case(str(o)) case ('phase') outputName crystallite_outputID(o,c) = phase_ID