From 9d86ea87ee49401814f2fe5ad92b55d0450daa3e Mon Sep 17 00:00:00 2001
From: Loris  Burth <loris.burth@gmail.com>
Date: Wed, 30 Apr 2025 15:08:25 +0200
Subject: [PATCH] bug fix for no CAP

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

diff --git a/src/QuAcK/QuAcK.f90 b/src/QuAcK/QuAcK.f90
index d8312dc..5781bcb 100644
--- a/src/QuAcK/QuAcK.f90
+++ b/src/QuAcK/QuAcK.f90
@@ -207,8 +207,8 @@ program QuAcK
   call wall_time(start_int)
 
   call read_1e_integrals(working_dir,nBas,S,T,V,Hc)
-  call read_eta_cap(working_dir,eta_cap)
   if (doCAP) then
+    call read_eta_cap(working_dir,eta_cap)
     call read_CAP_integrals(working_dir,nBas,CAP)
     CAP(:,:) = -eta_cap*CAP(:,:)
   end if