From e17ebeaf899f5f6e26c5c52463d46baba30fcab0 Mon Sep 17 00:00:00 2001 From: Salvatore Filippone Date: Thu, 18 Nov 2010 14:11:28 +0000 Subject: [PATCH] psblas3: f03/psb_d_csr_impl.f03 Fixed bug in csnm1. --- base/serial/f03/psb_d_csr_impl.f03 | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/base/serial/f03/psb_d_csr_impl.f03 b/base/serial/f03/psb_d_csr_impl.f03 index 72423612..c56b2a9b 100644 --- a/base/serial/f03/psb_d_csr_impl.f03 +++ b/base/serial/f03/psb_d_csr_impl.f03 @@ -1100,7 +1100,7 @@ function psb_d_csr_csnm1(a) result(res) do i=1, m do j=a%irp(i),a%irp(i+1)-1 k = a%ja(j) - vt(k) = vt(k) + abs(a%val(k)) + vt(k) = vt(k) + abs(a%val(j)) end do end do res = maxval(vt(1:n))