Commit 62bc4f46 authored by Matthias Redies's avatar Matthias Redies

fix atom2

parent 48d0cce1
......@@ -217,7 +217,7 @@ CONTAINS
rhoss(i, ispin) = rhoss(i, ispin)/(fpi_const*rad(i)**2)
ENDDO
ENDDO
IF (xcpot%is_gga()) THEN
IF (xcpot%needs_grad()) THEN
CALL potl0(xcpot, input%jspins, atoms%dx(ntyp), rad, rhoss, vxc)
ELSE
CALL xcpot%get_vxc(input%jspins, rhoss, vxc, vx)
......
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