mirror of
https://github.com/pfloos/quack
synced 2024-12-22 04:14:26 +01:00
fix bug
This commit is contained in:
parent
77fea9a9bd
commit
180ed63d74
@ -40,7 +40,7 @@ subroutine RG0T0pp(dotest,doACFDT,exchange_kernel,doXBS,dophBSE,TDA_T,TDA,dBSE,d
|
||||
|
||||
! Local variables
|
||||
|
||||
logical :: print_T = .true.
|
||||
logical :: print_T = .false.
|
||||
logical :: plot_self = .false.
|
||||
|
||||
integer :: isp_T
|
||||
|
@ -42,7 +42,7 @@ subroutine RG0W0(dotest,doACFDT,exchange_kernel,doXBS,dophBSE,dophBSE2,TDA_W,TDA
|
||||
|
||||
! Local variables
|
||||
|
||||
logical :: print_W = .true.
|
||||
logical :: print_W = .false.
|
||||
logical :: plot_self = .false.
|
||||
logical :: dRPA_W
|
||||
integer :: isp_W
|
||||
|
@ -1,4 +1,4 @@
|
||||
subroutine ppLR(TDA,nOO,nVV,Bpp,Cpp,Dpp,Om1,X1,Y1,Om2,X2,Y2,EcRPA)
|
||||
subroutine ppGLR(TDA,nOO,nVV,Bpp,Cpp,Dpp,Om1,X1,Y1,Om2,X2,Y2,EcRPA)
|
||||
|
||||
!
|
||||
! Solve the pp-RPA linear eigenvalue problem
|
||||
|
Loading…
Reference in New Issue
Block a user