PTEROSOR/QuAcK
10
1
Fork 0
mirror of https://github.com/pfloos/quack synced 2024-10-20 14:58:15 +02:00
Code Releases Activity

fix bug

Browse Source
This commit is contained in:
Pierre-Francois Loos 2024-09-13 09:52:31 +02:00
parent 77fea9a9bd
commit 180ed63d74
3 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/GT/RG0T0pp.f90
View File

@ -40,7 +40,7 @@ subroutine RG0T0pp(dotest,doACFDT,exchange_kernel,doXBS,dophBSE,TDA_T,TDA,dBSE,d
! Local variables ! Local variables
logical :: print_T = .true. logical :: print_T = .false.
logical :: plot_self = .false. logical :: plot_self = .false.
integer :: isp_T integer :: isp_T

2
src/GW/RG0W0.f90
View File

@ -42,7 +42,7 @@ subroutine RG0W0(dotest,doACFDT,exchange_kernel,doXBS,dophBSE,dophBSE2,TDA_W,TDA
! Local variables ! Local variables
logical :: print_W = .true. logical :: print_W = .false.
logical :: plot_self = .false. logical :: plot_self = .false.
logical :: dRPA_W logical :: dRPA_W
integer :: isp_W integer :: isp_W

2
src/LR/ppGLR.f90
View File

@ -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 ! Solve the pp-RPA linear eigenvalue problem