From ca4a0c97ef626f5ec641c311fe3baf685ac9934f Mon Sep 17 00:00:00 2001
From: v1j4y <vijay.gopal.c@gmail.com>
Date: Fri, 22 Apr 2022 15:17:20 +0200
Subject: [PATCH] Fix for heis.

---
 src/providdet.irp.f | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/src/providdet.irp.f b/src/providdet.irp.f
index afac84c..8fa422e 100644
--- a/src/providdet.irp.f
+++ b/src/providdet.irp.f
@@ -36,6 +36,10 @@ BEGIN_PROVIDER[integer(C_SIZE_T),det,(nt2,2)]
                 endif
                 deth(count,2)=i-1
             enddo
+    else
+      count+=1
+      deth(count,1)=0
+      deth(count,2)=1
     endif
 
     !C if det=0 then exit