Commit 58626536 authored by Graham, Aaron's avatar Graham, Aaron
Browse files

Fix bug in reading strings into PL

parent ec823878
Pipeline #162061 passed with stage
in 2 minutes and 13 seconds
......@@ -6423,7 +6423,7 @@ SUBROUTINE read_parameter(thisHDF5File,h5path,vals)
ENDDO
ENDDO
isbool=.TRUE.
IF(ANY(LEN(st1) /= 1)) THEN
IF(ANY(LEN(st2) /= 1)) THEN
isbool=.FALSE.
ELSE
DO j=1,SIZE(st2,DIM=2)
......@@ -6456,7 +6456,7 @@ SUBROUTINE read_parameter(thisHDF5File,h5path,vals)
ENDDO
ENDDO
isbool=.TRUE.
IF(ANY(LEN(st1) /= 1)) THEN
IF(ANY(LEN(st3) /= 1)) THEN
isbool=.FALSE.
ELSE
DO k=1,SIZE(st3,DIM=3)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment