having no output in crystallite caused trouble

This commit is contained in:
Martin Diehl 2018-06-19 22:58:46 +02:00
parent 2b5db71739
commit 9aa211605f
1 changed files with 4 additions and 2 deletions

View File

@ -268,7 +268,8 @@ subroutine crystallite_init
do c = 1_pInt, material_Ncrystallite do c = 1_pInt, material_Ncrystallite
str = crystalliteConfig(c)%getStrings('(output)')!,defaultVal=[]) if (crystalliteConfig(c)%keyExists('output') )then
str = crystalliteConfig(c)%getStrings('(output)')
do o = 1_pInt, size(str) do o = 1_pInt, size(str)
crystallite_output(o,c) = str(o) crystallite_output(o,c) = str(o)
outputName: select case(str(o)) outputName: select case(str(o))
@ -319,7 +320,8 @@ subroutine crystallite_init
case default outputName case default outputName
call IO_error(105_pInt,ext_msg=tag//' (Crystallite)') call IO_error(105_pInt,ext_msg=tag//' (Crystallite)')
end select outputName end select outputName
enddo enddo
endif
enddo enddo