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

return empty string array if nothing found (plasticity detect changes failed)

This commit is contained in:
Martin Diehl 2018-06-02 23:10:38 +02:00
parent 5ec98f65b4
commit 1e5106f601
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
src/list.f90
View File

@ -408,7 +408,10 @@ end function getFloatArray
tmp => this%next tmp => this%next
do do
if (.not. associated(tmp)) exit if (.not. associated(tmp)) then
if (.not. allocated(getStrings)) allocate(getStrings(0),source=str)
exit
endif
if (trim(IO_stringValue(tmp%string%val,tmp%string%pos,1))==trim(key)) then if (trim(IO_stringValue(tmp%string%val,tmp%string%pos,1))==trim(key)) then
if (tmp%string%pos(1) < 2) print*, "NOT WORKKING" if (tmp%string%pos(1) < 2) print*, "NOT WORKKING"
str = IO_StringValue(tmp%string%val,tmp%string%pos,2) str = IO_StringValue(tmp%string%val,tmp%string%pos,2)