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

take care of empty lines in this slightly new setup

This commit is contained in:
Sharan Roongta 2020-09-25 10:59:03 +02:00
parent 21ff587e17
commit 08f5851c82
1 changed files with 7 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
src/YAML_parse.f90
View File

@ -594,12 +594,13 @@ function to_flow(blck)
s_blck = 1
offset = 0
call skip_empty_lines(blck,s_blck)
e_blck = s_blck + index(blck(s_blck:),IO_EOL) - 2
line = IO_rmComment(blck(s_blck:e_blck))
if(trim(line) == '---') s_blck = e_blck + 2
call decide(blck,to_flow,s_blck,s_flow,offset)
if(len_trim(blck) /= 0) then
call skip_empty_lines(blck,s_blck)
e_blck = s_blck + index(blck(s_blck:),IO_EOL) - 2
line = IO_rmComment(blck(s_blck:e_blck))
if(trim(line) == '---') s_blck = e_blck + 2
call decide(blck,to_flow,s_blck,s_flow,offset)
endif
to_flow = trim(to_flow(:s_flow-1))
end_line = index(to_flow,IO_EOL)