Even better fix for last commit

5daa9eb6 · Daniel Wortmann · 01743209 · 5daa9eb6
Commit 5daa9eb6 authored Jul 08, 2016 by Daniel Wortmann
Hide whitespace changes
Inline Side-by-side

Showing with 1 addition and 1 deletion

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

No files found.
--- a/io/xmlOutput.F90
+++ b/io/xmlOutput.F90
@@ -572,7 +572,7 @@ MODULE m_xmlOutput
      IMPLICIT NONE

      CHARACTER(LEN=*), INTENT(IN) :: elementName
-      if (currentElementIndex>SIZE(elementList)) THEN
+      if (currentElementIndex==0.or.currentElementIndex>SIZE(elementList)) THEN
                  isCurrentXMLElement=.false.
                  return
      endif