From 931573740ab75d3519ea6077200571dda95aa325 Mon Sep 17 00:00:00 2001 From: Loris Burth Date: Thu, 27 Mar 2025 15:39:50 +0100 Subject: [PATCH] fixed typo in routine name --- 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 c699bbf..d640b27 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 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,real(eHF),aimag(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(:)