mirror of
https://github.com/pfloos/quack
synced 2024-08-25 05:31:47 +02:00
OK with eDFT
This commit is contained in:
parent
df0ee9e46f
commit
c90c95e03d
@ -164,17 +164,15 @@ subroutine unrestricted_individual_energy(x_rung,x_DFA,c_rung,c_DFA,LDA_centered
|
||||
+ sum(LZH(:)) + sum(LZx(:)) + sum(LZc(:)) &
|
||||
+ sum(ExDD(:,iEns)) + sum(EcDD(:,iEns))
|
||||
end do
|
||||
print*,E
|
||||
|
||||
! Alternative way of calculating individual energies
|
||||
|
||||
do iEns=1,nEns
|
||||
E(iEns) = sum(ET(:,iEns)) + sum(EV(:,iEns)) &
|
||||
+ sum(EH(:,iEns)) + sum(Ex(:,iEns)) + sum(Ec(:,iEns)) &
|
||||
+ sum(LZH(:)) + sum(LZx(:)) + sum(LZc(:)) &
|
||||
+ sum(ExDD(:,iEns)) + sum(EcDD(:,iEns))
|
||||
end do
|
||||
print*,E
|
||||
! do iEns=1,nEns
|
||||
! E(iEns) = sum(ET(:,iEns)) + sum(EV(:,iEns)) &
|
||||
! + sum(EH(:,iEns)) + sum(Ex(:,iEns)) + sum(Ec(:,iEns)) &
|
||||
! + sum(LZH(:)) + sum(LZx(:)) + sum(LZc(:)) &
|
||||
! + sum(ExDD(:,iEns)) + sum(EcDD(:,iEns))
|
||||
! end do
|
||||
|
||||
!------------------------------------------------------------------------
|
||||
! Excitation energies
|
||||
|
Loading…
Reference in New Issue
Block a user