From eb1a0b3a7f144c0374dfe629f7465aa8af3ce114 Mon Sep 17 00:00:00 2001 From: Salvatore Filippone Date: Mon, 11 Feb 2008 11:11:30 +0000 Subject: [PATCH] psblas: base/tools: psb_dspins.f90 psb_zspins.f90 Fixed bug in usage of global/local column indices. --- base/tools/psb_dspins.f90 | 4 +--- base/tools/psb_zspins.f90 | 2 +- 2 files changed, 2 insertions(+), 4 deletions(-) diff --git a/base/tools/psb_dspins.f90 b/base/tools/psb_dspins.f90 index 7d519b13..8a455653 100644 --- a/base/tools/psb_dspins.f90 +++ b/base/tools/psb_dspins.f90 @@ -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 diff --git a/base/tools/psb_zspins.f90 b/base/tools/psb_zspins.f90 index 51392075..aa7bfc8b 100644 --- a/base/tools/psb_zspins.f90 +++ b/base/tools/psb_zspins.f90 @@ -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