psblas3:

f03/psb_d_csr_impl.f03 Fixed bug in csnm1.
14 years ago · e17ebeaf89
parent 90800f7b5b
commit e17ebeaf89
1 changed files with 1 additions and 1 deletions
--- 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))