more

LLNL · Jun 18, 2024 · 70c46bf · 70c46bf
1 parent 43b024f
commit 70c46bf
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/examples/arkode/F2003_serial/ark_bruss1D_FEM_klu_f2003.f90 b/examples/arkode/F2003_serial/ark_bruss1D_FEM_klu_f2003.f90
@@ -1149,13 +1149,13 @@ program main
 
   ! Tell ARKODE to use a sparse linear solver for both Newton and mass matrix systems.
   sparsetype = 1
-  sunmat_A => FSUNSparseMatrix(neq, neq, int(nnz,c_long), sparsetype, ctx)
+  sunmat_A => FSUNSparseMatrix(neq, neq, nnz, sparsetype, ctx)
   if (.not. associated(sunmat_A)) then
      print *, 'ERROR: sunmat_A = NULL'
      stop 1
   end if
 
-  sunmat_M => FSUNSparseMatrix(neq, neq, int(nnz,c_long), sparsetype, ctx)
+  sunmat_M => FSUNSparseMatrix(neq, neq, nnz, sparsetype, ctx)
   if (.not. associated(sunmat_M)) then
      print *, 'ERROR: sunmat_M = NULL'
      stop 1