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

probably not needed 

We remove blank spaces while converting to flow YAML.
This commit is contained in:
Sharan Roongta 2021-07-23 18:37:45 +02:00
parent c347688410
commit a5c4e7232c
1 changed files with 6 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
src/YAML_parse.f90
View File

@ -54,7 +54,7 @@ recursive function parse_flow(YAML_flow) result(node)
myVal myVal
character(len=:), allocatable :: & character(len=:), allocatable :: &
flow_string, & flow_string, &
key, line key
integer :: & integer :: &
e, & ! end position of dictionary or list e, & ! end position of dictionary or list
s, & ! start position of dictionary or list s, & ! start position of dictionary or list
@ -97,9 +97,8 @@ recursive function parse_flow(YAML_flow) result(node)
allocate(tScalar::node) allocate(tScalar::node)
select type (node) select type (node)
class is (tScalar) class is (tScalar)
line = trim(adjustl(flow_string)) if(flow_string(1:1) == '"') then
if(line(1:1) == '"') then node = trim(adjustl(flow_string(2:len(flow_string)-1)))
node = line(2:len(line)-1)
else else
node = trim(adjustl(flow_string)) node = trim(adjustl(flow_string))
endif endif