Commit 2c1b4a0a authored by Gregor Michalicek's avatar Gregor Michalicek

Add redundant initialization in io/r_inpXML.F90 to make valgrind happy

Valgrind complained that the respective variable might not have been initialized.
parent 33bd6cf6
......@@ -2243,12 +2243,12 @@ input%preconditioning_param = evaluateFirstOnly(xmlGetAttributeValue('/fleurInpu
ALLOCATE(t_xcpot_inbuild::xcpot)
ENDIF
xcpot%kinED%set = .FALSE.
SELECT TYPE(xcpot)
TYPE IS(t_xcpot_inbuild)
CALL xcpot%init(namex(1:4),relcor,atoms%ntype)
TYPE IS(t_xcpot_libxc)
CALL xcpot%init(jspins,vxc_id_x,vxc_id_c,exc_id_x,exc_id_c)
END SELECT
CALL set_xcpot_usage(xcpot)
......
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