Fix initialization error

jchristopherson · Feb 12, 2024 · 740eb9a · 740eb9a
1 parent 7d933db
commit 740eb9a
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/src/linalg_sparse.f90 b/src/linalg_sparse.f90
@@ -944,7 +944,7 @@ module function create_empty_msr_matrix(m, n, nnz, err) result(rst)
     ! Allocation
     rst%m = m
     rst%n = n
-    rst%nnz = n
+    rst%nnz = nnz
     mn = min(m, n)
     nelem = m + 1 + nnz - mn
     allocate(rst%indices(nelem), source = 0, stat = flag)