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

psblas3:

Browse Source 
base/serial/impl/psb_c_csr_impl.f90
 base/serial/impl/psb_d_csr_impl.f90
 base/serial/impl/psb_s_csr_impl.f90
 base/serial/impl/psb_z_csr_impl.f90

Try uysing qsort in csrspspmm
This commit is contained in:
Salvatore Filippone
2016-06-10 10:31:40 +00:00
parent 2bd6693741
commit 12bf6b82f5
4 changed files with 4 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files
base/serial/impl/psb_c_csr_impl.f90
+1 -1
View File
@@ -3156,7 +3156,7 @@ contains
if (info /= 0) return
end if
call psb_msort(idxs(1:nrc))
call psb_qsort(idxs(1:nrc))
do i=1, nrc
irw = idxs(i)
c%ja(nzc) = irw
base/serial/impl/psb_d_csr_impl.f90
+1 -1
View File
@@ -3156,7 +3156,7 @@ contains
if (info /= 0) return
end if
call psb_msort(idxs(1:nrc))
call psb_qsort(idxs(1:nrc))
do i=1, nrc
irw = idxs(i)
c%ja(nzc) = irw
base/serial/impl/psb_s_csr_impl.f90
+1 -1
View File
@@ -3156,7 +3156,7 @@ contains
if (info /= 0) return
end if
call psb_msort(idxs(1:nrc))
call psb_qsort(idxs(1:nrc))
do i=1, nrc
irw = idxs(i)
c%ja(nzc) = irw
base/serial/impl/psb_z_csr_impl.f90
+1 -1
View File
@@ -3156,7 +3156,7 @@ contains
if (info /= 0) return
end if
call psb_msort(idxs(1:nrc))
call psb_qsort(idxs(1:nrc))
do i=1, nrc
irw = idxs(i)
c%ja(nzc) = irw