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

Fix call to base%abgdxyz

Browse Source
This commit is contained in:
Salvatore Filippone
2024-02-12 16:29:48 +01:00
parent 14c4ff0f32
commit ebc7c6b3b4
4 changed files with 4 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files
cuda/psb_c_cuda_vect_mod.F90
+1 -1
View File
@@ -923,7 +923,7 @@ contains
complex(psb_spk_), intent (in) :: alpha, beta, gamma, delta
integer(psb_ipk_), intent(out) :: info
call z%psb_c_base_vect_type(m,alpha,beta,gamma,delta,x,y,info)
call z%psb_c_base_vect_type%abgdxyz(m,alpha,beta,gamma,delta,x,y,info)
!!$
!!$ if (x%is_dev()) call x%sync()
!!$
cuda/psb_d_cuda_vect_mod.F90
+1 -1
View File
@@ -923,7 +923,7 @@ contains
real(psb_dpk_), intent (in) :: alpha, beta, gamma, delta
integer(psb_ipk_), intent(out) :: info
call z%psb_d_base_vect_type(m,alpha,beta,gamma,delta,x,y,info)
call z%psb_d_base_vect_type%abgdxyz(m,alpha,beta,gamma,delta,x,y,info)
!!$
!!$ if (x%is_dev()) call x%sync()
!!$
cuda/psb_s_cuda_vect_mod.F90
+1 -1
View File
@@ -923,7 +923,7 @@ contains
real(psb_spk_), intent (in) :: alpha, beta, gamma, delta
integer(psb_ipk_), intent(out) :: info
call z%psb_s_base_vect_type(m,alpha,beta,gamma,delta,x,y,info)
call z%psb_s_base_vect_type%abgdxyz(m,alpha,beta,gamma,delta,x,y,info)
!!$
!!$ if (x%is_dev()) call x%sync()
!!$
cuda/psb_z_cuda_vect_mod.F90
+1 -1
View File
@@ -923,7 +923,7 @@ contains
complex(psb_dpk_), intent (in) :: alpha, beta, gamma, delta
integer(psb_ipk_), intent(out) :: info
call z%psb_z_base_vect_type(m,alpha,beta,gamma,delta,x,y,info)
call z%psb_z_base_vect_type%abgdxyz(m,alpha,beta,gamma,delta,x,y,info)
!!$
!!$ if (x%is_dev()) call x%sync()
!!$