From 674635c057464b60c339b22cc8ca3fdd5c4afa14 Mon Sep 17 00:00:00 2001
From: Abdallah Ammar <abd.ammar.phys@gmail.com>
Date: Tue, 27 Aug 2024 15:23:42 +0200
Subject: [PATCH] remove double counting of nuclear repulsion

---
 plugins/local/slater_tc/slater_tc_opt.irp.f | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/plugins/local/slater_tc/slater_tc_opt.irp.f b/plugins/local/slater_tc/slater_tc_opt.irp.f
index 3c4421f8..bf954882 100644
--- a/plugins/local/slater_tc/slater_tc_opt.irp.f
+++ b/plugins/local/slater_tc/slater_tc_opt.irp.f
@@ -129,9 +129,9 @@ subroutine htilde_mu_mat_opt_bi_ortho(key_j, key_i, Nint, hmono, htwoe, hthree,
 
   endif
 
-  if(degree==0) then
-    htot += nuclear_repulsion
-  endif
+! if(degree==0) then
+!   htot += nuclear_repulsion
+! endif
 
 end