From 978e8b6a2c098ef11d64ce4119ce5c110e2f16ba Mon Sep 17 00:00:00 2001 From: Pierre-Francois Loos Date: Sun, 9 Jan 2022 23:13:17 +0100 Subject: [PATCH] OK with BSE@GT --- src/LR/linear_response_Tmatrix.f90 | 16 ++++++++-------- 1 file changed, 8 insertions(+), 8 deletions(-) diff --git a/src/LR/linear_response_Tmatrix.f90 b/src/LR/linear_response_Tmatrix.f90 index dbb0596..cfaaf2e 100644 --- a/src/LR/linear_response_Tmatrix.f90 +++ b/src/LR/linear_response_Tmatrix.f90 @@ -42,10 +42,10 @@ subroutine linear_response_Tmatrix(ispin,dRPA,TDA,eta,nBas,nC,nO,nV,nR,nS,lambda call linear_response_A_matrix(ispin,dRPA,nBas,nC,nO,nV,nR,nS,lambda,e,ERI,A) - print*,'A' - call matout(nS,nS,A) - print*,'TA' - call matout(nS,nS,A_BSE) +! print*,'A' +! call matout(nS,nS,A) +! print*,'TA' +! call matout(nS,nS,A_BSE) A(:,:) = A(:,:) + A_BSE(:,:) @@ -63,10 +63,10 @@ subroutine linear_response_Tmatrix(ispin,dRPA,TDA,eta,nBas,nC,nO,nV,nR,nS,lambda call linear_response_B_matrix(ispin,dRPA,nBas,nC,nO,nV,nR,nS,lambda,ERI,B) - print*,'B' - call matout(nS,nS,B) - print*,'TB' - call matout(nS,nS,B_BSE) +! print*,'B' +! call matout(nS,nS,B) +! print*,'TB' +! call matout(nS,nS,B_BSE) B(:,:) = B(:,:) + B_BSE(:,:)