fdurastante/psblas3
1
0
Fork 0
mirror of https://github.com/sfilippone/psblas3.git synced 2026-10-06 22:55:08 +00:00
Code Issues Packages Projects Releases Wiki Activity

Corrected bug in out-of-place axpby

Browse Source
This commit is contained in:
Cirdans-Home
2020-03-30 11:36:09 +02:00
parent 177bc6ecb3
commit ea6ad3a85f
4 changed files with 4 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files
base/psblas/psb_caxpby.f90
+1 -1
View File
@@ -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)
base/psblas/psb_daxpby.f90
+1 -1
View File
@@ -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)
base/psblas/psb_saxpby.f90
+1 -1
View File
@@ -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)
base/psblas/psb_zaxpby.f90
+1 -1
View File
@@ -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)