mirror of
https://github.com/pfloos/quack
synced 2024-12-22 12:23:42 +01:00
comment use
This commit is contained in:
parent
2bdd48be2e
commit
6ff3fc2905
@ -32,8 +32,8 @@ subroutine ppLR_C(ispin,nOrb,nC,nO,nV,nR,nVV,lambda,e,ERI,Cpp)
|
|||||||
|
|
||||||
! Define the chemical potential
|
! Define the chemical potential
|
||||||
|
|
||||||
! eF = e(nO) + e(nO+1)
|
eF = e(nO) + e(nO+1)
|
||||||
eF = 0d0
|
! eF = 0d0
|
||||||
|
|
||||||
! Build C matrix for the singlet manifold
|
! Build C matrix for the singlet manifold
|
||||||
|
|
||||||
|
@ -30,8 +30,8 @@ subroutine ppLR_D(ispin,nOrb,nC,nO,nV,nR,nOO,lambda,e,ERI,Dpp)
|
|||||||
|
|
||||||
! Define the chemical potential
|
! Define the chemical potential
|
||||||
|
|
||||||
! eF = e(nO) + e(nO+1)
|
eF = e(nO) + e(nO+1)
|
||||||
eF = 0d0
|
! eF = 0d0
|
||||||
|
|
||||||
! Build the D matrix for the singlet manifold
|
! Build the D matrix for the singlet manifold
|
||||||
|
|
||||||
|
@ -1,6 +1,6 @@
|
|||||||
subroutine phRRPA(dotest,TDA,doACFDT,exchange_kernel,singlet,triplet,nBas,nC,nO,nV,nR,nS,ENuc,ERHF,ERI,dipole_int,eHF)
|
subroutine phRRPA(dotest,TDA,doACFDT,exchange_kernel,singlet,triplet,nBas,nC,nO,nV,nR,nS,ENuc,ERHF,ERI,dipole_int,eHF)
|
||||||
|
|
||||||
use cu_quack_module
|
! use cu_quack_module
|
||||||
|
|
||||||
! Perform a direct random phase approximation calculation
|
! Perform a direct random phase approximation calculation
|
||||||
|
|
||||||
|
Loading…
Reference in New Issue
Block a user