Commit 1d263028 authored by Gregor Michalicek's avatar Gregor Michalicek

Always initialize obsolete%lwb in r_inpXML.F90

valgrind complained.
parent 127a0fb6
......@@ -1200,10 +1200,10 @@ SUBROUTINE r_inpXML(&
CALL juDFT_error("Wrong name of XC-potential!", calledby="r_inpXML")
END IF
xcpot%igrd = 0
obsolete%lwb=.FALSE.
IF (xcpot%icorr.GE.6) THEN
xcpot%igrd = 1
! Am I sure about the following 3 lines? They were included in a similar section in rw_inp
obsolete%lwb=.false.
! Am I sure about the following 2 lines? They were included in a similar section in rw_inp
obsolete%ndvgrd=6
obsolete%chng=-0.1e-11
END IF
......
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