fdurastante
/
psblas3
mirror of https://github.com/sfilippone/psblas3.git
1
0
Fork 0
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.
psblas3-dense
Salvatore Filippone 9 years ago
parent 12bf6b82f5
commit eb6c3a0a9e
4 changed files with 8 additions and 0 deletions
Show Stats Download Patch File Download Diff File

2
base/serial/impl/psb_c_coo_impl.f90
Unescape Escape 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 do i=2,nzin
if ( (ia(i) < 1).or.(ia(i)> nr)) then if ( (ia(i) < 1).or.(ia(i)> nr)) then
use_buffers = .false. use_buffers = .false.
srt_inp = .false.
exit exit
end if end if
iaux(ia(i)) = iaux(ia(i)) + 1 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 do i=2,nzin
if ( (ja(i) < 1).or.(ja(i)> nc)) then if ( (ja(i) < 1).or.(ja(i)> nc)) then
use_buffers = .false. use_buffers = .false.
srt_inp = .false.
exit exit
end if end if
iaux(ja(i)) = iaux(ja(i)) + 1 iaux(ja(i)) = iaux(ja(i)) + 1

2
base/serial/impl/psb_d_coo_impl.f90
Unescape Escape 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 do i=2,nzin
if ( (ia(i) < 1).or.(ia(i)> nr)) then if ( (ia(i) < 1).or.(ia(i)> nr)) then
use_buffers = .false. use_buffers = .false.
srt_inp = .false.
exit exit
end if end if
iaux(ia(i)) = iaux(ia(i)) + 1 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 do i=2,nzin
if ( (ja(i) < 1).or.(ja(i)> nc)) then if ( (ja(i) < 1).or.(ja(i)> nc)) then
use_buffers = .false. use_buffers = .false.
srt_inp = .false.
exit exit
end if end if
iaux(ja(i)) = iaux(ja(i)) + 1 iaux(ja(i)) = iaux(ja(i)) + 1

2
base/serial/impl/psb_s_coo_impl.f90
Unescape Escape 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 do i=2,nzin
if ( (ia(i) < 1).or.(ia(i)> nr)) then if ( (ia(i) < 1).or.(ia(i)> nr)) then
use_buffers = .false. use_buffers = .false.
srt_inp = .false.
exit exit
end if end if
iaux(ia(i)) = iaux(ia(i)) + 1 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 do i=2,nzin
if ( (ja(i) < 1).or.(ja(i)> nc)) then if ( (ja(i) < 1).or.(ja(i)> nc)) then
use_buffers = .false. use_buffers = .false.
srt_inp = .false.
exit exit
end if end if
iaux(ja(i)) = iaux(ja(i)) + 1 iaux(ja(i)) = iaux(ja(i)) + 1

2
base/serial/impl/psb_z_coo_impl.f90
Unescape Escape 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 do i=2,nzin
if ( (ia(i) < 1).or.(ia(i)> nr)) then if ( (ia(i) < 1).or.(ia(i)> nr)) then
use_buffers = .false. use_buffers = .false.
srt_inp = .false.
exit exit
end if end if
iaux(ia(i)) = iaux(ia(i)) + 1 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 do i=2,nzin
if ( (ja(i) < 1).or.(ja(i)> nc)) then if ( (ja(i) < 1).or.(ja(i)> nc)) then
use_buffers = .false. use_buffers = .false.
srt_inp = .false.
exit exit
end if end if
iaux(ja(i)) = iaux(ja(i)) + 1 iaux(ja(i)) = iaux(ja(i)) + 1

Write Preview
Loading…
Cancel
Save