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

Fix use of psi_Xaxpby

Browse Source
This commit is contained in:
sfilippone
2025-02-09 16:20:39 +01:00
parent a527493258
commit 6772315d4d
4 changed files with 8 additions and 8 deletions
Download Patch File Download Diff File Expand all files Collapse all files
base/psblas/psb_caxpby.f90
+2 -2
View File
@@ -299,7 +299,7 @@ end subroutine psb_caxpby_vect_out
!
subroutine psb_caxpby(alpha, x, beta,y,desc_a,info, n, jx, jy)
use psb_base_mod, psb_protect_name => psb_caxpby
use psi_c_serial_mod
implicit none
integer(psb_ipk_), intent(in), optional :: n, jx, jy
@@ -384,7 +384,7 @@ subroutine psb_caxpby(alpha, x, beta,y,desc_a,info, n, jx, jy)
if ((in /= 0)) then
if(desc_a%get_local_rows() > 0) then
call pab_geaxpby(desc_a%get_local_cols(),in,&
call psi_caxpby(desc_a%get_local_cols(),in,&
& alpha,x(iix:,jjx:),beta,&
& y(iiy:,jjy:),info)
end if
base/psblas/psb_daxpby.f90
+2 -2
View File
@@ -299,7 +299,7 @@ end subroutine psb_daxpby_vect_out
!
subroutine psb_daxpby(alpha, x, beta,y,desc_a,info, n, jx, jy)
use psb_base_mod, psb_protect_name => psb_daxpby
use psi_d_serial_mod
implicit none
integer(psb_ipk_), intent(in), optional :: n, jx, jy
@@ -384,7 +384,7 @@ subroutine psb_daxpby(alpha, x, beta,y,desc_a,info, n, jx, jy)
if ((in /= 0)) then
if(desc_a%get_local_rows() > 0) then
call pab_geaxpby(desc_a%get_local_cols(),in,&
call psi_daxpby(desc_a%get_local_cols(),in,&
& alpha,x(iix:,jjx:),beta,&
& y(iiy:,jjy:),info)
end if
base/psblas/psb_saxpby.f90
+2 -2
View File
@@ -299,7 +299,7 @@ end subroutine psb_saxpby_vect_out
!
subroutine psb_saxpby(alpha, x, beta,y,desc_a,info, n, jx, jy)
use psb_base_mod, psb_protect_name => psb_saxpby
use psi_s_serial_mod
implicit none
integer(psb_ipk_), intent(in), optional :: n, jx, jy
@@ -384,7 +384,7 @@ subroutine psb_saxpby(alpha, x, beta,y,desc_a,info, n, jx, jy)
if ((in /= 0)) then
if(desc_a%get_local_rows() > 0) then
call pab_geaxpby(desc_a%get_local_cols(),in,&
call psi_saxpby(desc_a%get_local_cols(),in,&
& alpha,x(iix:,jjx:),beta,&
& y(iiy:,jjy:),info)
end if
base/psblas/psb_zaxpby.f90
+2 -2
View File
@@ -299,7 +299,7 @@ end subroutine psb_zaxpby_vect_out
!
subroutine psb_zaxpby(alpha, x, beta,y,desc_a,info, n, jx, jy)
use psb_base_mod, psb_protect_name => psb_zaxpby
use psi_z_serial_mod
implicit none
integer(psb_ipk_), intent(in), optional :: n, jx, jy
@@ -384,7 +384,7 @@ subroutine psb_zaxpby(alpha, x, beta,y,desc_a,info, n, jx, jy)
if ((in /= 0)) then
if(desc_a%get_local_rows() > 0) then
call pab_geaxpby(desc_a%get_local_cols(),in,&
call psi_zaxpby(desc_a%get_local_cols(),in,&
& alpha,x(iix:,jjx:),beta,&
& y(iiy:,jjy:),info)
end if