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

simplified

This commit is contained in:
Martin Diehl 2020-10-07 09:37:48 +02:00
parent 08ab4a0b88
commit 2a23b5eaa9
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
src/YAML_parse.f90
View File

@ -220,9 +220,9 @@ logical function isKey(line)
if(len(IO_rmComment(line)) == 0) then if(len(IO_rmComment(line)) == 0) then
isKey = .false. isKey = .false.
else else
isKey = IO_rmComment(line(len(IO_rmComment(line)):len(IO_rmComment(line)))) == ':' & isKey = index(IO_rmComment(line),':',back=.false.) == len(IO_rmComment(line)) .and. &
.and. .not. isFlow(line) index(IO_rmComment(line),':',back=.true.) == len(IO_rmComment(line)) .and. &
isKey = isKey .and. index(IO_rmComment(line),':') == index(IO_rmComment(line),':',back =.true.) .not. isFlow(line)
endif endif
end function isKey end function isKey