From ea6ad3a85fdf7209897b9f15e9bca3429dd6e3fc Mon Sep 17 00:00:00 2001 From: Cirdans-Home Date: Mon, 30 Mar 2020 11:36:09 +0200 Subject: [PATCH] Corrected bug in out-of-place axpby --- base/psblas/psb_caxpby.f90 | 2 +- base/psblas/psb_daxpby.f90 | 2 +- base/psblas/psb_saxpby.f90 | 2 +- base/psblas/psb_zaxpby.f90 | 2 +- 4 files changed, 4 insertions(+), 4 deletions(-) diff --git a/base/psblas/psb_caxpby.f90 b/base/psblas/psb_caxpby.f90 index b92072ab..2311f3e2 100644 --- a/base/psblas/psb_caxpby.f90 +++ b/base/psblas/psb_caxpby.f90 @@ -263,7 +263,7 @@ subroutine psb_caxpby_vect_out(alpha, x, beta, y,& if(desc_a%get_local_rows() > 0) then call z%axpby(desc_a%get_local_rows(),& - & alpha,x,beta,z,info) + & alpha,x,beta,y,info) end if call psb_erractionrestore(err_act) diff --git a/base/psblas/psb_daxpby.f90 b/base/psblas/psb_daxpby.f90 index 4ee12d46..c3a54f93 100644 --- a/base/psblas/psb_daxpby.f90 +++ b/base/psblas/psb_daxpby.f90 @@ -263,7 +263,7 @@ subroutine psb_daxpby_vect_out(alpha, x, beta, y,& if(desc_a%get_local_rows() > 0) then call z%axpby(desc_a%get_local_rows(),& - & alpha,x,beta,z,info) + & alpha,x,beta,y,info) end if call psb_erractionrestore(err_act) diff --git a/base/psblas/psb_saxpby.f90 b/base/psblas/psb_saxpby.f90 index 0c619984..6384968e 100644 --- a/base/psblas/psb_saxpby.f90 +++ b/base/psblas/psb_saxpby.f90 @@ -263,7 +263,7 @@ subroutine psb_saxpby_vect_out(alpha, x, beta, y,& if(desc_a%get_local_rows() > 0) then call z%axpby(desc_a%get_local_rows(),& - & alpha,x,beta,z,info) + & alpha,x,beta,y,info) end if call psb_erractionrestore(err_act) diff --git a/base/psblas/psb_zaxpby.f90 b/base/psblas/psb_zaxpby.f90 index f60e8739..b5863d5a 100644 --- a/base/psblas/psb_zaxpby.f90 +++ b/base/psblas/psb_zaxpby.f90 @@ -263,7 +263,7 @@ subroutine psb_zaxpby_vect_out(alpha, x, beta, y,& if(desc_a%get_local_rows() > 0) then call z%axpby(desc_a%get_local_rows(),& - & alpha,x,beta,z,info) + & alpha,x,beta,y,info) end if call psb_erractionrestore(err_act)