output tag was empty:

This commit is contained in:
Martin Diehl 2018-06-02 21:00:47 +02:00
parent 3fec2c960d
commit e93e380ad3
1 changed files with 1 additions and 0 deletions

View File

@ -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