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

2d82178b · Gregor Michalicek · dd2e78bf · 2d82178b
Commit 2d82178b authored Oct 07, 2016 by Gregor Michalicek
Hide whitespace changes
Inline Side-by-side

Showing with 3 additions and 1 deletion

io/xmlOutput.F90 io/xmlOutput.F90 +3 -1

No files found.
--- a/io/xmlOutput.F90
+++ b/io/xmlOutput.F90
@@ -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