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.

main/fleur.F90

@@ -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 IF
 
     END DO scfloop ! DO WHILE (l_cont)