ivar, ix should be c_int

examples/arkode/F2003_serial/ark_bruss1D_FEM_klu_f2003.f90

@@ -90,7 +90,7 @@ 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_int64_t) :: ivar, ix
+    integer(c_int) :: ivar, ix
     idx = neqreal*(ix - 1) + ivar - 1
   end function idx