From 083573809d7443241413a6c6add1bd417e493b55 Mon Sep 17 00:00:00 2001 From: Salvatore Filippone Date: Thu, 18 Nov 2010 14:18:39 +0000 Subject: [PATCH] psblas3: base/serial/f03/psb_d_csr_impl.f03 Fixed bug in colsum,aclsum. --- base/serial/f03/psb_d_csr_impl.f03 | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/base/serial/f03/psb_d_csr_impl.f03 b/base/serial/f03/psb_d_csr_impl.f03 index c56b2a9b..4c1c7637 100644 --- a/base/serial/f03/psb_d_csr_impl.f03 +++ b/base/serial/f03/psb_d_csr_impl.f03 @@ -1241,7 +1241,7 @@ subroutine psb_d_csr_colsum(d,a) do i=1, m do j=a%irp(i),a%irp(i+1)-1 k = a%ja(j) - d(k) = d(k) + (a%val(k)) + d(k) = d(k) + (a%val(j)) end do end do @@ -1293,7 +1293,7 @@ subroutine psb_d_csr_aclsum(d,a) do i=1, m do j=a%irp(i),a%irp(i+1)-1 k = a%ja(j) - d(k) = d(k) + abs(a%val(k)) + d(k) = d(k) + abs(a%val(j)) end do end do