Commit e4721869 authored by Matthias Redies's avatar Matthias Redies

repair merge

parent 1570e533
......@@ -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