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

psblas:

Browse Source 
base/tools:
psb_dspins.f90
psb_zspins.f90

Fixed bug in usage of global/local column indices.
This commit is contained in:
Salvatore Filippone
2008-02-11 11:11:30 +00:00
parent 8d3469a121
commit eb1a0b3a7f
2 changed files with 2 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files
base/tools/psb_dspins.f90
+1 -3
View File
@@ -180,8 +180,6 @@ subroutine psb_dspins(nz,ia,ja,val,a,desc_a,info,rebuild)
end if
end if
nrow = psb_cd_get_local_rows(desc_a)
ncol = psb_cd_get_local_cols(desc_a)
else if (psb_is_asb_desc(desc_a)) then
@@ -201,7 +199,7 @@ subroutine psb_dspins(nz,ia,ja,val,a,desc_a,info,rebuild)
nrow = psb_cd_get_local_rows(desc_a)
ncol = psb_cd_get_local_cols(desc_a)
call psb_coins(nz,ia,ja,val,a,1,nrow,1,ncol,&
call psb_coins(nz,ila,jla,val,a,1,nrow,1,ncol,&
& info,rebuild=rebuild_)
if (info /= 0) then
info=4010
base/tools/psb_zspins.f90
+1 -1
View File
@@ -200,7 +200,7 @@ subroutine psb_zspins(nz,ia,ja,val,a,desc_a,info,rebuild)
nrow = psb_cd_get_local_rows(desc_a)
ncol = psb_cd_get_local_cols(desc_a)
call psb_coins(nz,ia,ja,val,a,1,nrow,1,ncol,&
call psb_coins(nz,ila,jla,val,a,1,nrow,1,ncol,&
& info,rebuild=rebuild_)
if (info /= 0) then
info=4010