Commit 00f6cdde authored by Gregor Michalicek's avatar Gregor Michalicek

Fix current XML element determination in main/Fleur.F90

The problem was that the respective procedure call was in a single
if statement and-connected to an irank.EQ.0 test. The procedure call
was only supposed to be performed on irank 0. ...but this filter
is not yet active in the if clause but only in the enclosed block.
parent c3a435b5
......@@ -458,8 +458,8 @@ CONTAINS
!CALL writeTimesXML()
IF ((mpi%irank.EQ.0).AND.(isCurrentXMLElement("iteration"))) THEN
CALL closeXMLElement('iteration')
IF (mpi%irank.EQ.0) THEN
IF (isCurrentXMLElement("iteration")) CALL closeXMLElement('iteration')
END DO scfloop ! DO WHILE (l_cont)
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