Commit 0cd277ab authored by giannozz's avatar giannozz

Argh ... removed a line in previous commit that should have stayed there,

plus: change in preparation for spin-polarized scan


git-svn-id: http://qeforge.qe-forge.org/svn/q-e/trunk/espresso@14005 c92efa57-630b-4861-b058-cf58834340f0
parent eff28354
......@@ -1457,6 +1457,7 @@ subroutine SCANcxc(rho, grho, tau, sx, sc, v1x, v2x, v3x, v1c, v2c, v3c)
#if defined(__LIBXC)
TYPE(xc_f90_pointer_t) :: xc_func
TYPE(xc_f90_pointer_t) :: xc_info
integer :: size = 1
integer :: func_id
real(dp) :: lapl_rho, vlapl_rho ! not used?
......
......@@ -251,7 +251,7 @@ SUBROUTINE v_xc_meta( rho, rho_core, rhog_core, etxc, vtxc, v, kedtaur )
!
! h contains D(rho*Exc)/D(|grad rho|) * (grad rho) / |grad rho|
!
if (get_meta()==1) then ! tpss functional
if (get_meta()==1 .OR.get_meta()==5 ) then ! tpss, scan
!
h(:,k,1) = (v2xup * grhoup(:) + v2cup(:)) * e2
h(:,k,2) = (v2xdw * grhodw(:) + v2cdw(:)) * e2
......
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