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

psblas:

Browse Source 
base/serial/impl/psb_c_coo_impl.f90
 base/serial/impl/psb_d_coo_impl.f90
 base/serial/impl/psb_s_coo_impl.f90
 base/serial/impl/psb_z_coo_impl.f90

Make sure srt_inp is correct.
This commit is contained in:
Salvatore Filippone
2016-06-13 13:11:05 +00:00
parent 12bf6b82f5
commit eb6c3a0a9e
4 changed files with 8 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files
base/serial/impl/psb_c_coo_impl.f90
+2
View File
@@ -3424,6 +3424,7 @@ subroutine psb_c_fix_coo_inner(nr,nc,nzin,dupl,ia,ja,val,nzout,info,idir)
do i=2,nzin
if ( (ia(i) < 1).or.(ia(i)> nr)) then
use_buffers = .false.
srt_inp = .false.
exit
end if
iaux(ia(i)) = iaux(ia(i)) + 1
@@ -3744,6 +3745,7 @@ subroutine psb_c_fix_coo_inner(nr,nc,nzin,dupl,ia,ja,val,nzout,info,idir)
do i=2,nzin
if ( (ja(i) < 1).or.(ja(i)> nc)) then
use_buffers = .false.
srt_inp = .false.
exit
end if
iaux(ja(i)) = iaux(ja(i)) + 1
base/serial/impl/psb_d_coo_impl.f90
+2
View File
@@ -3424,6 +3424,7 @@ subroutine psb_d_fix_coo_inner(nr,nc,nzin,dupl,ia,ja,val,nzout,info,idir)
do i=2,nzin
if ( (ia(i) < 1).or.(ia(i)> nr)) then
use_buffers = .false.
srt_inp = .false.
exit
end if
iaux(ia(i)) = iaux(ia(i)) + 1
@@ -3744,6 +3745,7 @@ subroutine psb_d_fix_coo_inner(nr,nc,nzin,dupl,ia,ja,val,nzout,info,idir)
do i=2,nzin
if ( (ja(i) < 1).or.(ja(i)> nc)) then
use_buffers = .false.
srt_inp = .false.
exit
end if
iaux(ja(i)) = iaux(ja(i)) + 1
base/serial/impl/psb_s_coo_impl.f90
+2
View File
@@ -3424,6 +3424,7 @@ subroutine psb_s_fix_coo_inner(nr,nc,nzin,dupl,ia,ja,val,nzout,info,idir)
do i=2,nzin
if ( (ia(i) < 1).or.(ia(i)> nr)) then
use_buffers = .false.
srt_inp = .false.
exit
end if
iaux(ia(i)) = iaux(ia(i)) + 1
@@ -3744,6 +3745,7 @@ subroutine psb_s_fix_coo_inner(nr,nc,nzin,dupl,ia,ja,val,nzout,info,idir)
do i=2,nzin
if ( (ja(i) < 1).or.(ja(i)> nc)) then
use_buffers = .false.
srt_inp = .false.
exit
end if
iaux(ja(i)) = iaux(ja(i)) + 1
base/serial/impl/psb_z_coo_impl.f90
+2
View File
@@ -3424,6 +3424,7 @@ subroutine psb_z_fix_coo_inner(nr,nc,nzin,dupl,ia,ja,val,nzout,info,idir)
do i=2,nzin
if ( (ia(i) < 1).or.(ia(i)> nr)) then
use_buffers = .false.
srt_inp = .false.
exit
end if
iaux(ia(i)) = iaux(ia(i)) + 1
@@ -3744,6 +3745,7 @@ subroutine psb_z_fix_coo_inner(nr,nc,nzin,dupl,ia,ja,val,nzout,info,idir)
do i=2,nzin
if ( (ja(i) < 1).or.(ja(i)> nc)) then
use_buffers = .false.
srt_inp = .false.
exit
end if
iaux(ja(i)) = iaux(ja(i)) + 1