From 0130c68d4e5f7d1a54efb9d640a5ad9c42dad021 Mon Sep 17 00:00:00 2001
From: lburth <loris.burth@gmail.com>
Date: Tue, 15 Apr 2025 11:31:49 +0200
Subject: [PATCH] typo fix

---
 src/GW/complex_cRG0W0.f90 | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/GW/complex_cRG0W0.f90 b/src/GW/complex_cRG0W0.f90
index e625f5f..f7f129d 100644
--- a/src/GW/complex_cRG0W0.f90
+++ b/src/GW/complex_cRG0W0.f90
@@ -104,7 +104,7 @@ subroutine complex_cRG0W0(dotest,doACFDT,exchange_kernel,doXBS,dophBSE,dophBSE2,
 ! Memory allocation
 
   allocate(Aph(nS,nS),Bph(nS,nS),Re_SigC(nOrb),Im_SigC(nOrb),Re_Z(nOrb),Im_Z(nOrb),Om(nS),XpY(nS,nS),XmY(nS,nS),rho(nOrb,nOrb,nS), & 
-           Re_eGW(nOrb),Im_eGW(nOrb),Re_eGWlin(nOrb),Im_eGWlin(nOrb),Re_eHF(nOrb),Im_eHF(nOrb),)
+           Re_eGW(nOrb),Im_eGW(nOrb),Re_eGWlin(nOrb),Im_eGWlin(nOrb),Re_eHF(nOrb),Im_eHF(nOrb))
   Re_eHF(:) = real(eHF(:))
   Im_eHF(:) = aimag(eHF(:))
 !-------------------!