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

empty string list as default value simplifies logic

This commit is contained in:
Martin Diehl 2018-06-21 22:38:06 +02:00
parent adefbd95e6
commit f61f22924a
1 changed files with 1 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/crystallite.f90
View File

@ -268,8 +268,7 @@ subroutine crystallite_init
do c = 1_pInt, material_Ncrystallite do c = 1_pInt, material_Ncrystallite
if (crystalliteConfig(c)%keyExists('(output)') )then str = crystalliteConfig(c)%getStrings('(output)',defaultVal=[character(len=65536)::])
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))
@ -321,7 +320,6 @@ subroutine crystallite_init
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