Commit 08859e6c authored by Gregor Michalicek's avatar Gregor Michalicek

Quick fix for bug in io/xmlOutput.F90

Variable length character strings were stored in an array. This lead to problems.
parent 516ab03d
......@@ -68,6 +68,8 @@ MODULE m_xmlOutput
CHARACTER(LEN=20) :: structureSpecifiers(11)
CHARACTER(:), ALLOCATABLE :: gitdesc,githash,gitbranch,compile_date,compile_user,compile_host
CHARACTER(:), ALLOCATABLE :: compile_flags,link_flags
CHARACTER(LEN=1000) :: gitdescTemp,githashTemp,gitbranchTemp,compile_dateTemp,compile_userTemp,compile_hostTemp
CHARACTER(LEN=1000) :: compile_flagsTemp,link_flagsTemp
CHARACTER(LEN=20) :: attributes(7)
maxNumElements = 10
......@@ -87,8 +89,16 @@ MODULE m_xmlOutput
WRITE (xmlOutputUnit,'(a)') '<fleurOutput fleurOutputVersion="0.27">'
CALL openXMLElement('programVersion',(/'version'/),(/version_const/))
CALL get_compile_desc(gitdesc,githash,gitbranch,compile_date,compile_user,compile_host,compile_flags,link_flags)
CALL writeXMLElement('compilationInfo',(/'date','user','host','flag','link'/),(/compile_date,compile_user,compile_host,compile_flags,link_flags/))
CALL writeXMLElement('gitInfo',(/'version ','branch ','lastCommitHash'/),(/gitdesc,gitbranch,githash/))
gitdescTemp = gitdesc
githashTemp = githash
gitbranchTemp = gitbranch
compile_dateTemp = compile_date
compile_userTemp = compile_user
compile_hostTemp = compile_host
compile_flagsTemp = compile_flags
link_flagsTemp = link_flags
CALL writeXMLElement('compilationInfo',(/'date','user','host','flag','link'/),(/compile_dateTemp,compile_userTemp,compile_hostTemp,compile_flagsTemp,link_flagsTemp/))
CALL writeXMLElement('gitInfo',(/'version ','branch ','lastCommitHash'/),(/gitdescTemp,gitbranchTemp,githashTemp/))
CALL getComputerArchitectures(flags, numFlags)
IF (numFlags.EQ.0) THEN
numFlags = 1
......
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