fdurastante/psblas3
1
0
Fork 0
mirror of https://github.com/sfilippone/psblas3.git synced 2026-10-16 10:52:08 +00:00
Code Issues Packages Projects Releases Wiki Activity

psblas3:

Browse Source 
f03/psb_d_csr_impl.f03	

Fixed bug in csnm1.
This commit is contained in:
Salvatore Filippone
2010-11-18 14:11:28 +00:00
parent 90800f7b5b
commit e17ebeaf89
1 changed files with 1 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files
base/serial/f03/psb_d_csr_impl.f03
+1 -1
View File
@@ -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))