@ -265,6 +265,7 @@ contains
if (psb_get_errstatus() /= 0) return
info=0
call psb_erractionsave(err_act)
call psb_init_heap(heap,info)
!
! Here we take a fast shortcut if possible, otherwise
@ -272,7 +273,6 @@ contains
! anything.
if (toupper(a%fida)=='CSR') then
do j = a%ia2(i), a%ia2(i+1) - 1
k = a%ia1(j)
@ -268,6 +268,7 @@ contains
! nrmi is the norm of the current sparse row.
@ -282,7 +283,6 @@ contains
dmaxup = dzero
nrmi = dzero
if ((jmin<=k).and.(k<=jmax)) then
@ -264,6 +264,7 @@ contains
@ -271,7 +272,6 @@ contains
@ -269,6 +269,7 @@ contains
@ -283,7 +284,6 @@ contains