Improved output for valence charges in out.xml

cdn/cdnval.F90

@@ -329,7 +329,7 @@ CONTAINS
     IF (mpi%irank==0) THEN
        WRITE (6,FMT=8000) jspin
        WRITE (16,FMT=8000) jspin
-       CALL openXMLElementPoly('valenceDensity',(/'spin'/),(/jspin/))
+       CALL openXMLElementPoly('mtCharges',(/'spin'/),(/jspin/))
     END IF
 8000 FORMAT (/,/,10x,'valence density: spin=',i2)
 
@@ -964,7 +964,7 @@ CONTAINS
           END IF
                             !-for
        END DO ! end of loop ispin = jsp_start,jsp_end
-       CALL closeXMLElement('valenceDensity')
+       CALL closeXMLElement('mtCharges')
     END IF ! end of (mpi%irank==0)
     !+t3e
     !Note: no deallocation anymore, we rely on Fortran08 :-)

cdn_mt/cdnmt.f90

@@ -98,7 +98,6 @@ CONTAINS
          &     t33,'d',t42,'f',t51,'total')
     CALL timestart("cdnmt")
 
-    CALL openXMLElementNoAttributes('mtCharges')
     na = 1
     DO itype = 1,atoms%ntype
        !--->    spherical component
@@ -251,7 +250,6 @@ CONTAINS
 
        na = na + atoms%neq(itype)
     ENDDO ! end of loop over atom types
-    CALL closeXMLElement('mtCharges')
     CALL timestop("cdnmt")
     !---> for testing: to plot the offdiag. part of the density matrix it
     !---> is written to the file rhomt21. This file can read in pldngen.

main/cdngen.f90

@@ -158,6 +158,8 @@
 !        called once and both spin directions are calculated in a single
 !        go.
 !
+         IF (mpi%irank.EQ.0) CALL openXMLElementNoAttributes('valenceDensity')
+
          jspmax = input%jspins
          IF (noco%l_mperp) jspmax = 1
          DO jspin = 1,jspmax
@@ -179,9 +181,8 @@
 !-t3e
          IF (l_enpara) CLOSE (40)
 
-         CALL openXMLElementNoAttributes('valenceCharges')
          CALL cdntot(stars,atoms,sym, vacuum,input,cell,oneD, qpw,rho,rht, qtot,dummy)
-         CALL closeXMLElement('valenceCharges')
+         CALL closeXMLElement('valenceDensity')
 !
 !---> changes
 !