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(&
fileNum = -1
IF(l_outFile) THEN
fileNum = getXMLOutputUnitNumber()
CALL openXMLElementNoAttributes('inputData')
fileNum = 5
OPEN (fileNum,file='inp.xml',form='formatted',status='unknown')
......@@ -612,7 +613,9 @@ SUBROUTINE w_inpXML(&
WRITE (fileNum,420) obsolete%form66,input%eonly,input%l_bmt
WRITE (fileNum,'(a)') ' </output>'
IF(.NOT.l_outFile) THEN
IF(l_outFile) THEN
CALL closeXMLElement('inputData')
WRITE (fileNum,'(a)') '</fleurInput>'
CLOSE (fileNum)
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