int4->int8 in Yoshimine fct

pfloos · Dec 10, 2024 · 671c6f4 · 671c6f4
1 parent 995378d
commit 671c6f4
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/src/utils/utils.f90 b/src/utils/utils.f90
@@ -912,7 +912,7 @@ subroutine lower_case(inp_str, out_str)
 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), &