Commit a6f87bc1 authored by Alexander Neukirchen's avatar Alexander Neukirchen

quickfix to last commit

parent 6c3e1d60
......@@ -63,7 +63,7 @@ CONTAINS
ALLOCATE (ylhtf, MOLD=ylh)
!Calculate the required lattice harmonics and their derivatives:
CALL lhglptg(sphhar, atoms, rx, atoms%nsp(), xcpot, sym, &
CALL lhglptg(sphhar, atoms, rx, atoms%nsp(), xcpot%xcpot_needs_grad(), sym, &
ylh, thet, phi, ylht, ylhtt, ylhf, ylhff, ylhtf)
nd = atoms%ntypsy(SUM(atoms%neq(:n - 1)) + 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