Commit b9392338 authored by Daniel Wortmann's avatar Daniel Wortmann

Added c_1 again as this bug was fixed twice

parent 708a2765
......@@ -177,7 +177,7 @@ C***********************************************************************
REAL, INTENT (OUT) :: exc(mgrid) ! xc energy
!
! .. Local Scalars ..
REAL ex
REAL c_1,ex
REAL :: rho, rh1, rh2 ! total, spin up & spin down charge density
REAL :: x, y1, y2, s, thfpi, rs, beta, bs41, alc
REAL :: xpx, xfx, xlx, xpx0, xfx0, xlx0, ecp, ecf, fs, ec
......
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