From 180ed63d746ca084234e56dd13be4fda0897df18 Mon Sep 17 00:00:00 2001 From: Pierre-Francois Loos Date: Fri, 13 Sep 2024 09:52:31 +0200 Subject: [PATCH] fix bug --- src/GT/RG0T0pp.f90 | 2 +- src/GW/RG0W0.f90 | 2 +- src/LR/ppGLR.f90 | 2 +- 3 files changed, 3 insertions(+), 3 deletions(-) diff --git a/src/GT/RG0T0pp.f90 b/src/GT/RG0T0pp.f90 index 63d4dff..1bd6db4 100644 --- a/src/GT/RG0T0pp.f90 +++ b/src/GT/RG0T0pp.f90 @@ -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 diff --git a/src/GW/RG0W0.f90 b/src/GW/RG0W0.f90 index 93fc9de..708f1f5 100644 --- a/src/GW/RG0W0.f90 +++ b/src/GW/RG0W0.f90 @@ -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 diff --git a/src/LR/ppGLR.f90 b/src/LR/ppGLR.f90 index 362fcd7..5ec5dac 100644 --- a/src/LR/ppGLR.f90 +++ b/src/LR/ppGLR.f90 @@ -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