Skip to content

GitLab

fleur
fleur
Commit 2d82178b authored by Gregor Michalicek's avatar Gregor Michalicek
Browse files
Options

Added a missing case for a subroutine in io/xmlOutput.F90

parent dd2e78bf
Hide whitespace changes
Inline Side-by-side
Showing with 3 additions and 1 deletion
io/xmlOutput.F90
View file @ 2d82178b
......@@ -350,7 +350,9 @@ MODULE m_xmlOutput
END IF
ALLOCATE(contentLineList(contentLineListSize))
CALL fillContentLineList(contentList,contentLineList,contentLineLength)
IF(contentLineListSize.LE.1) THEN
IF(contentLineListSize.EQ.0) THEN
outputString = TRIM(ADJUSTL(outputString))//'> </'//TRIM(ADJUSTL(elementName))//'>'
ELSE IF(contentLineListSize.EQ.1) THEN
outputString = TRIM(ADJUSTL(outputString))//'>'//TRIM(ADJUSTL(contentLineList(1)))//'</'//&
TRIM(ADJUSTL(elementName))//'>'
ELSE
......
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