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