From bdcf7ec432bd69ba4a485e4641710aa4243e3148 Mon Sep 17 00:00:00 2001
From: Anthony Scemama <scemama@irsamc.ups-tlse.fr>
Date: Sat, 22 Mar 2025 00:49:00 +0100
Subject: [PATCH] Fix spin_det_search_key

---
 src/determinants/spindeterminants.irp.f | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

diff --git a/src/determinants/spindeterminants.irp.f b/src/determinants/spindeterminants.irp.f
index 2f497bd7..b087ec24 100644
--- a/src/determinants/spindeterminants.irp.f
+++ b/src/determinants/spindeterminants.irp.f
@@ -16,11 +16,10 @@ integer*8 function spin_det_search_key(det,Nint)
   integer(bit_kind), intent(in) :: det(Nint)
   integer(bit_kind), parameter :: unsigned_shift = 1_bit_kind-huge(1_bit_kind) ! 100...00
   integer :: i
-  spin_det_search_key = det(1)
+  spin_det_search_key = det(1)+unsigned_shift
   do i=2,Nint
     spin_det_search_key = ieor(spin_det_search_key,det(i))
   enddo
-  spin_det_search_key = spin_det_search_key+unsigned_shift
 end