From 671c6f4f1232bd65079fb47102fbaa8c0fea2a8c Mon Sep 17 00:00:00 2001
From: Abdallah Ammar <abd.ammar.phys@gmail.com>
Date: Tue, 10 Dec 2024 15:37:15 +0100
Subject: [PATCH] int4->int8 in Yoshimine fct

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

diff --git a/src/utils/utils.f90 b/src/utils/utils.f90
index 4e89faf..c6eaac0 100644
--- a/src/utils/utils.f90
+++ b/src/utils/utils.f90
@@ -912,7 +912,7 @@ end
 integer*8 function Yoshimine_4ind(a, b, c, d)
 
   implicit none
-  integer, intent(in) :: a, b, c, d
+  integer*8, intent(in) :: a, b, c, d
   integer*8, external :: Yoshimine_2ind
 
   Yoshimine_4ind = Yoshimine_2ind(Yoshimine_2ind(a, b), &