4
1
mirror of https://github.com/pfloos/quack synced 2024-06-21 20:52:21 +02:00

restricted individual energies

This commit is contained in:
Pierre-Francois Loos 2020-03-15 21:48:00 +01:00
parent 444a9f7bf1
commit c947c6cf1d

View File

@ -67,7 +67,7 @@ subroutine RVWN5_lda_correlation_potential(nGrid,weight,nBas,AO,rho,Fc)
decdra_p = drsdra*dxdrs*decdx_p
Fc(mu,nu,1) = Fc(mu,nu,1) + weight(iG)*AO(mu,iG)*AO(nu,iG)*(ec_p + decdra_p*r)
Fc(mu,nu) = Fc(mu,nu) + weight(iG)*AO(mu,iG)*AO(nu,iG)*(ec_p + decdra_p*r)
end if