Commit 306ba555 authored by Gregor Michalicek's avatar Gregor Michalicek

Surround input data part in out.xml with a tag

Note: The indentation of this part is not correct and it is a yet
      unsolved problem to elegantly introduce easy switching the
      indentation between inp.xml and out.xml.
parent b5527474
...@@ -146,6 +146,7 @@ SUBROUTINE w_inpXML(& ...@@ -146,6 +146,7 @@ SUBROUTINE w_inpXML(&
fileNum = -1 fileNum = -1
IF(l_outFile) THEN IF(l_outFile) THEN
fileNum = getXMLOutputUnitNumber() fileNum = getXMLOutputUnitNumber()
CALL openXMLElementNoAttributes('inputData')
ELSE ELSE
fileNum = 5 fileNum = 5
OPEN (fileNum,file='inp.xml',form='formatted',status='unknown') OPEN (fileNum,file='inp.xml',form='formatted',status='unknown')
...@@ -612,7 +613,9 @@ SUBROUTINE w_inpXML(& ...@@ -612,7 +613,9 @@ SUBROUTINE w_inpXML(&
WRITE (fileNum,420) obsolete%form66,input%eonly,input%l_bmt WRITE (fileNum,420) obsolete%form66,input%eonly,input%l_bmt
WRITE (fileNum,'(a)') ' </output>' WRITE (fileNum,'(a)') ' </output>'
IF(.NOT.l_outFile) THEN IF(l_outFile) THEN
CALL closeXMLElement('inputData')
ELSE
WRITE (fileNum,'(a)') '</fleurInput>' WRITE (fileNum,'(a)') '</fleurInput>'
CLOSE (fileNum) CLOSE (fileNum)
END IF END IF
......
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