From e9bc3434228c907e591c335d1d43aa38e53195d3 Mon Sep 17 00:00:00 2001 From: lburth Date: Mon, 31 Mar 2025 13:33:30 +0200 Subject: [PATCH] minor change --- src/GF/complex_cRG0F2.f90 | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/GF/complex_cRG0F2.f90 b/src/GF/complex_cRG0F2.f90 index a0a43cd..05c026a 100644 --- a/src/GF/complex_cRG0F2.f90 +++ b/src/GF/complex_cRG0F2.f90 @@ -68,7 +68,7 @@ subroutine complex_cRG0F2(dotest,dophBSE,doppBSE,TDA,dBSE,dTDA,singlet,triplet,l ! Frequency-dependent second-order contribution - call complex_cRGF2_self_energy_diag(eta,nOrb,nC,nO,nV,nR,real(eHF),aimag(eHF),ERI,Re_SigC,Im_SigC,Re_Z,Im_Z) + call complex_cRGF2_self_energy_diag(eta,nOrb,nC,nO,nV,nR,Re_eHF,Im_eHF,ERI,Re_SigC,Im_SigC,Re_Z,Im_Z) Re_eGFlin(:) = Re_eHF(:) + Re_Z(:)*Re_SigC(:) - Im_Z(:)*Im_SigC(:) Im_eGFlin(:) = Im_eHF(:) + Re_Z(:)*Im_SigC(:) + Im_Z(:)*Re_SigC(:)