idx

LLNL · Jun 18, 2024 · 6059bcc · 6059bcc
1 parent d0158b1
commit 6059bcc
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/examples/arkode/F2003_serial/ark_bruss1D_FEM_klu_f2003.f90 b/examples/arkode/F2003_serial/ark_bruss1D_FEM_klu_f2003.f90
@@ -90,7 +90,8 @@ module Bruss1DFEMKLU_UserData
   ! function that maps 2D data into 1D address space
   ! (0-based since CSR matrix will be sent to C solver)
   integer(c_int64_t) function idx(ix, ivar)
-    integer(c_int) :: ivar, ix
+    integer(c_int64_t):: ix
+    integer(c_int) :: ivar
     idx = neqreal*(ix - 1) + ivar - 1
   end function idx