Commit 778f5a7f authored by Gregor Michalicek's avatar Gregor Michalicek

Added missing allocation, initialization of xcpot%lda_atom to old inp code path

parent 017e8c4b
......@@ -339,6 +339,9 @@
banddos%l_orb = .FALSE.
banddos%orbCompAtom = 0
ALLOCATE(xcpot%lda_atom(atoms%ntype))
xcpot%lda_atom(:) = .FALSE.
IF(juDFT_was_argument("-toXML")) THEN
WRITE(*,*) ''
WRITE(*,*) 'Please note:'
......
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