Commit 4ec5cc28 authored by Gregor Michalicek's avatar Gregor Michalicek

Write out MPI PE to out.xml iff CPP_MPI is defined.

parent cad4524d
...@@ -49,7 +49,7 @@ init/tetcon.f init/kvecon.f ...@@ -49,7 +49,7 @@ init/tetcon.f init/kvecon.f
set(inpgen_F90 io/xsf_io.f90 set(inpgen_F90 io/xsf_io.f90
global/types.F90 global/enpara.f90 global/chkmt.f90 inpgen/inpgen.f90 inpgen/set_inp.f90 io/rw_inp.f90 juDFT/juDFT.F90 global/types.F90 global/enpara.f90 global/chkmt.f90 inpgen/inpgen.f90 inpgen/set_inp.f90 io/rw_inp.f90 juDFT/juDFT.F90
juDFT/stop.F90 juDFT/time.F90 juDFT/init.F90 io/w_inpXML.f90 init/julia.f90 io/xmlOutput.f90) juDFT/stop.F90 juDFT/time.F90 juDFT/init.F90 io/w_inpXML.f90 init/julia.f90 io/xmlOutput.F90)
set(fleur_SRC ${fleur_F90} ${fleur_F77}) set(fleur_SRC ${fleur_F90} ${fleur_F77})
......
...@@ -20,5 +20,5 @@ io/wrtdop.f90 ...@@ -20,5 +20,5 @@ io/wrtdop.f90
io/w_inpXML.f90 io/w_inpXML.f90
io/xsf_io.f90 io/xsf_io.f90
io/xmlIntWrapFort.f90 io/xmlIntWrapFort.f90
io/xmlOutput.f90 io/xmlOutput.F90
) )
...@@ -40,6 +40,10 @@ MODULE m_xmlOutput ...@@ -40,6 +40,10 @@ MODULE m_xmlOutput
IMPLICIT NONE IMPLICIT NONE
#ifdef CPP_MPI
include "mpif.h"
INTEGER::err,isize
#endif
CHARACTER(LEN=8) :: date CHARACTER(LEN=8) :: date
CHARACTER(LEN=10) :: time CHARACTER(LEN=10) :: time
CHARACTER(LEN=10) :: zone CHARACTER(LEN=10) :: zone
...@@ -58,6 +62,10 @@ MODULE m_xmlOutput ...@@ -58,6 +62,10 @@ MODULE m_xmlOutput
WRITE (xmlOutputUnit,'(a)') '<?xml version="1.0" encoding="UTF-8" standalone="no"?>' WRITE (xmlOutputUnit,'(a)') '<?xml version="1.0" encoding="UTF-8" standalone="no"?>'
WRITE (xmlOutputUnit,'(a)') '<fleurOutput fleurOutputVersion="0.27">' WRITE (xmlOutputUnit,'(a)') '<fleurOutput fleurOutputVersion="0.27">'
CALL writeXMLElement('programVersion',(/'version'/),(/version_const/)) CALL writeXMLElement('programVersion',(/'version'/),(/version_const/))
#ifdef CPP_MPI
CALL MPI_COMM_SIZE(MPI_COMM_WORLD,isize,err)
CALL writeXMLElementPoly('parallelizationParameters',(/'mpiPEs'/),(/isize/))
#endif
CALL writeXMLElement('startDateAndTime',(/'date','time','zone'/),(/dateString,timeString,zone/)) CALL writeXMLElement('startDateAndTime',(/'date','time','zone'/),(/dateString,timeString,zone/))
END SUBROUTINE startXMLOutput END SUBROUTINE startXMLOutput
......
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