From ebc7c6b3b40fe21705db6f4d148128ae14410707 Mon Sep 17 00:00:00 2001 From: Salvatore Filippone Date: Mon, 12 Feb 2024 16:29:48 +0100 Subject: [PATCH] Fix call to base%abgdxyz --- cuda/psb_c_cuda_vect_mod.F90 | 2 +- cuda/psb_d_cuda_vect_mod.F90 | 2 +- cuda/psb_s_cuda_vect_mod.F90 | 2 +- cuda/psb_z_cuda_vect_mod.F90 | 2 +- 4 files changed, 4 insertions(+), 4 deletions(-) diff --git a/cuda/psb_c_cuda_vect_mod.F90 b/cuda/psb_c_cuda_vect_mod.F90 index db988e56..56cc80e6 100644 --- a/cuda/psb_c_cuda_vect_mod.F90 +++ b/cuda/psb_c_cuda_vect_mod.F90 @@ -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() !!$ diff --git a/cuda/psb_d_cuda_vect_mod.F90 b/cuda/psb_d_cuda_vect_mod.F90 index 7f84807b..03e65f91 100644 --- a/cuda/psb_d_cuda_vect_mod.F90 +++ b/cuda/psb_d_cuda_vect_mod.F90 @@ -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() !!$ diff --git a/cuda/psb_s_cuda_vect_mod.F90 b/cuda/psb_s_cuda_vect_mod.F90 index 8858c6d9..9616b3a6 100644 --- a/cuda/psb_s_cuda_vect_mod.F90 +++ b/cuda/psb_s_cuda_vect_mod.F90 @@ -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() !!$ diff --git a/cuda/psb_z_cuda_vect_mod.F90 b/cuda/psb_z_cuda_vect_mod.F90 index a7243ff9..1153fc61 100644 --- a/cuda/psb_z_cuda_vect_mod.F90 +++ b/cuda/psb_z_cuda_vect_mod.F90 @@ -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() !!$