Fix bug in size estimate for CSR with diagonal matrices.

2026-10-20 04:42:08 +00:00 · 2006-05-02 12:45:07 +00:00
parent 208952a9a5
commit aa376a22b7
1 changed files with 1 additions and 1 deletions
@@ -81,7 +81,7 @@ subroutine psb_cest(afmt, m,n,nnz, lia1, lia2, lar, iup, info)
      lar = nnz
    else if(afmt.eq.'CSR') then
      lia1 = nnz
-      lia2 = nnz
+      lia2 = max(nnz,m+1)
      lar = nnz
    else
      info = 136