diff --git a/src/serial/psb_cest.f90 b/src/serial/psb_cest.f90 index 2434b251..7f84807a 100644 --- a/src/serial/psb_cest.f90 +++ b/src/serial/psb_cest.f90 @@ -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