scnc
/
quantum-espresso
mirror of https://gitlab.com/QEF/q-e.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

Mistake in the new functional pbeq2d 

git-svn-id: http://qeforge.qe-forge.org/svn/q-e/trunk/espresso@9424 c92efa57-630b-4861-b058-cf58834340f0
This commit is contained in:
giannozz 2012-09-12 17:01:06 +00:00
parent 3f2a06d787
commit fef27547bb
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
flib/functionals.f90
View File

@ -788,8 +788,8 @@ subroutine pbex (rho, grho, iflag, sx, v1x, v2x)
f1 = s2 * mu(iflag) / k (iflag) f1 = s2 * mu(iflag) / k (iflag)
f2 = 1.d0 + f1 f2 = 1.d0 + f1
f3 = k (iflag) / f2 f3 = k (iflag) / f2
end if
fx = k (iflag) - f3 fx = k (iflag) - f3
end if
exunif = - c1 * kf exunif = - c1 * kf
sx = exunif * fx sx = exunif * fx
! !