LCPQ/quack
4
1
Fork 0
mirror of https://github.com/pfloos/quack synced 2024-07-25 04:07:35 +02:00
Code Releases Activity

OK with BSE@GT

Browse Source
This commit is contained in:
Pierre-Francois Loos 2022-01-09 23:13:17 +01:00
parent 695b407335
commit 978e8b6a2c
1 changed files with 8 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
src/LR/linear_response_Tmatrix.f90
View File

@ -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(:,:)