4
1
mirror of https://github.com/pfloos/quack synced 2024-12-22 20:35:36 +01:00

one micro modif in RGW_phBSE

This commit is contained in:
Pierre-Francois Loos 2024-10-31 19:36:08 +01:00
parent 21e5b55641
commit 2500a98feb
5 changed files with 19 additions and 11 deletions

View File

@ -90,7 +90,7 @@ subroutine RGW_phBSE(dophBSE2,exchange_kernel,TDA_W,TDA,dBSE,dTDA,singlet,triple
call RGW_excitation_density(nOrb,nC,nO,nR,nS,ERI,XpY_RPA,rho_RPA) call RGW_excitation_density(nOrb,nC,nO,nR,nS,ERI,XpY_RPA,rho_RPA)
call RGW_phBSE_static_kernel_A(eta,nOrb,nC,nO,nV,nR,nS,1d0,ERI,OmRPA,rho_RPA,KA_sta) call RGW_phBSE_static_kernel_A(eta,nOrb,nC,nO,nV,nR,nS,1d0,ERI,OmRPA,rho_RPA,KA_sta)
call RGW_phBSE_static_kernel_B(eta,nOrb,nC,nO,nV,nR,nS,1d0,ERI,OmRPA,rho_RPA,KB_sta) if(.not.TDA) call RGW_phBSE_static_kernel_B(eta,nOrb,nC,nO,nV,nR,nS,1d0,ERI,OmRPA,rho_RPA,KB_sta)
!------------------- !-------------------
! Singlet manifold ! Singlet manifold
@ -116,8 +116,8 @@ subroutine RGW_phBSE(dophBSE2,exchange_kernel,TDA_W,TDA,dBSE,dTDA,singlet,triple
write(*,*) write(*,*)
call RGW_phBSE_static_kernel(eta,nOrb,nC,nO,nV,nR,nS,1d0,ERI,OmRPA,rho_RPA,W) call RGW_phBSE_static_kernel(eta,nOrb,nC,nO,nV,nR,nS,1d0,ERI,OmRPA,rho_RPA,W)
call RGW_phBSE2_static_kernel_A(eta,nOrb,nC,nO,nV,nR,nS,1d0,eW,W,KA_sta)
call RGW_phBSE2_static_kernel_A(eta,nOrb,nC,nO,nV,nR,nS,1d0,eW,W,KA_sta)
if(.not.TDA) call RGW_phBSE2_static_kernel_B(eta,nOrb,nC,nO,nV,nR,nS,1d0,eW,W,KB_sta) if(.not.TDA) call RGW_phBSE2_static_kernel_B(eta,nOrb,nC,nO,nV,nR,nS,1d0,eW,W,KB_sta)
deallocate(W) deallocate(W)

View File

@ -32,12 +32,14 @@ subroutine UGW_phBSE_static_kernel_A(ispin,eta,nBas,nC,nO,nV,nR,nSa,nSb,nSt,nS_s
double precision,intent(out) :: KA(nSt,nSt) double precision,intent(out) :: KA(nSt,nSt)
! Initialization
KA(:,:) = 0d0
!--------------------------------------------------! !--------------------------------------------------!
! Build BSE matrix for spin-conserving transitions ! ! Build BSE matrix for spin-conserving transitions !
!--------------------------------------------------! !--------------------------------------------------!
KA(:,:) = 0d0
if(ispin == 1) then if(ispin == 1) then
! aaaa block ! aaaa block

View File

@ -32,12 +32,14 @@ subroutine UGW_phBSE_static_kernel_B(ispin,eta,nBas,nC,nO,nV,nR,nSa,nSb,nSt,nS_s
double precision,intent(out) :: KB(nSt,nSt) double precision,intent(out) :: KB(nSt,nSt)
! Initialization
KB(:,:) = 0d0
!--------------------------------------------------! !--------------------------------------------------!
! Build BSE matrix for spin-conserving transitions ! ! Build BSE matrix for spin-conserving transitions !
!--------------------------------------------------! !--------------------------------------------------!
KB(:,:) = 0d0
if(ispin == 1) then if(ispin == 1) then
! aaaa block ! aaaa block

View File

@ -39,6 +39,10 @@ subroutine phULR_A(ispin,dRPA,nBas,nC,nO,nV,nR,nSa,nSb,nSt,lambda,eHF,ERI_aaaa,E
delta_dRPA = 0d0 delta_dRPA = 0d0
if(dRPA) delta_dRPA = 1d0 if(dRPA) delta_dRPA = 1d0
! Initialization
Aph(:,:) = 0d0
!---------------------------------------------- !----------------------------------------------
! Build A matrix for spin-conserved transitions ! Build A matrix for spin-conserved transitions
!---------------------------------------------- !----------------------------------------------
@ -127,8 +131,6 @@ subroutine phULR_A(ispin,dRPA,nBas,nC,nO,nV,nR,nSa,nSb,nSt,lambda,eHF,ERI_aaaa,E
if(ispin == 2) then if(ispin == 2) then
Aph(:,:) = 0d0
! abab block ! abab block
ia = 0 ia = 0

View File

@ -38,6 +38,10 @@ subroutine phULR_B(ispin,dRPA,nBas,nC,nO,nV,nR,nSa,nSb,nSt,lambda,ERI_aaaa,ERI_a
delta_dRPA = 0d0 delta_dRPA = 0d0
if(dRPA) delta_dRPA = 1d0 if(dRPA) delta_dRPA = 1d0
! Initialization
Bph(:,:) = 0d0
!----------------------------------------------- !-----------------------------------------------
! Build B matrix for spin-conserving transitions ! Build B matrix for spin-conserving transitions
!----------------------------------------------- !-----------------------------------------------
@ -124,8 +128,6 @@ subroutine phULR_B(ispin,dRPA,nBas,nC,nO,nV,nR,nSa,nSb,nSt,lambda,ERI_aaaa,ERI_a
if(ispin == 2) then if(ispin == 2) then
Bph(:,:) = 0d0
! abba block ! abba block
ia = 0 ia = 0