223031012
/
DAMASK_EICMD
mirror of https://github.com/achalhp/DAMASK_EICMD.git
1
0
Fork 0
Code Issues Projects Releases Wiki Activity

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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
src/crystallite.f90
View File

@ -269,6 +269,7 @@ subroutine crystallite_init
do c = 1_pInt, material_Ncrystallite do c = 1_pInt, material_Ncrystallite
str = crystalliteConfig(c)%getStrings('(output)')!,defaultVal=[]) str = crystalliteConfig(c)%getStrings('(output)')!,defaultVal=[])
do o = 1_pInt, size(str) do o = 1_pInt, size(str)
crystallite_output(o,c) = str(o)
outputName: select case(str(o)) outputName: select case(str(o))
case ('phase') outputName case ('phase') outputName
crystallite_outputID(o,c) = phase_ID crystallite_outputID(o,c) = phase_ID