Skip to content

GitLab

fleur
fleur
Commit 7ea5b6c9 authored by Vasily Tseplyaev's avatar Vasily Tseplyaev
Browse files
Options

Make xmloutput be compatible with aiida-fleur parser again

parent c558fbfd
Hide whitespace changes
Inline Side-by-side
Showing with 2 additions and 2 deletions
io/xmlOutput.F90
View file @ 7ea5b6c9
...@@ -51,7 +51,7 @@ MODULE m_xmlOutput ...@@ -51,7 +51,7 @@ MODULE m_xmlOutput
CHARACTER(LEN=1000) :: compile_flagsTemp,link_flagsTemp CHARACTER(LEN=1000) :: compile_flagsTemp,link_flagsTemp
CHARACTER(LEN=20) :: attributes(7) CHARACTER(LEN=20) :: attributes(7)
CALL startxmloutput("out.xml","FLEURoutput") CALL startxmloutput("out.xml","fleurOutput")
CALL openXMLElement('programVersion',(/'version'/),(/version_const/)) CALL openXMLElement('programVersion',(/'version'/),(/version_const/))
CALL get_compile_desc(gitdesc,githash,gitbranch,compile_date,compile_user,compile_host,compile_flags,link_flags) CALL get_compile_desc(gitdesc,githash,gitbranch,compile_date,compile_user,compile_host,compile_flags,link_flags)
gitdescTemp = gitdesc gitdescTemp = gitdesc
......
juDFT/xmlOutput.F90
View file @ 7ea5b6c9
...@@ -23,7 +23,7 @@ MODULE m_judft_xmlOutput ...@@ -23,7 +23,7 @@ MODULE m_judft_xmlOutput
INTEGER, SAVE :: maxNumElements INTEGER, SAVE :: maxNumElements
INTEGER, SAVE :: xmlOutputUnit INTEGER, SAVE :: xmlOutputUnit
LOGICAL, SAVE :: xmlOpened = .FALSE. LOGICAL, SAVE :: xmlOpened = .FALSE.
CHARACTER(len=10) :: maintag CHARACTER(len=15) :: maintag
CHARACTER(LEN= 40), ALLOCATABLE :: elementList(:) CHARACTER(LEN= 40), ALLOCATABLE :: elementList(:)
PUBLIC startXMLOutput, endXMLOutput PUBLIC startXMLOutput, endXMLOutput
......
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