From 4a1c2a87644d99ff1f44e0e0bf89121cb7faefa1 Mon Sep 17 00:00:00 2001 From: Loris Burth Date: Thu, 27 Mar 2025 15:43:41 +0100 Subject: [PATCH] removed debug print --- src/GF/complex_cRGF2_self_energy_diag.f90 | 4 ---- 1 file changed, 4 deletions(-) diff --git a/src/GF/complex_cRGF2_self_energy_diag.f90 b/src/GF/complex_cRGF2_self_energy_diag.f90 index 61c1c3c..09a34e8 100644 --- a/src/GF/complex_cRGF2_self_energy_diag.f90 +++ b/src/GF/complex_cRGF2_self_energy_diag.f90 @@ -56,8 +56,6 @@ subroutine complex_cRGF2_self_energy_diag(eta,nBas,nC,nO,nV,nR,Re_e,Im_e,ERI,Re_ z_dummy = num*cmplx(eps/(eps**2 + eta_tilde**2),eta_tilde/(eps**2 + eta_tilde**2),kind=8) Re_SigC(p) = Re_SigC(p) + real(z_dummy) Im_SigC(p) = Im_SigC(p) + aimag(z_dummy) - write(*,*) "Numerator" - write(*,*) num z_dummy = num*cmplx(-(eps**2 - eta_tilde**2)/(eps**2 + eta_tilde**2)**2,& -2*eta_tilde*eps/(eps**2 + eta_tilde**2)**2,kind=8) Re_DS(p) = Re_DS(p) + real(z_dummy) @@ -80,8 +78,6 @@ subroutine complex_cRGF2_self_energy_diag(eta,nBas,nC,nO,nV,nR,Re_e,Im_e,ERI,Re_ z_dummy = num*cmplx(eps/(eps**2 + eta_tilde**2),-eta_tilde/(eps**2 + eta_tilde**2),kind=8) Re_SigC(p) = Re_SigC(p) + real(z_dummy) Im_SigC(p) = Im_SigC(p) + aimag(z_dummy) - write(*,*) "Numerator" - write(*,*) num z_dummy = num*cmplx(-(eps**2 - eta_tilde**2)/(eps**2 + eta_tilde**2)**2,& 2*eta_tilde*eps/(eps**2 + eta_tilde**2)**2,kind=8) Re_DS(p) = Re_DS(p) + real(z_dummy)