Fix call to base%abgdxyz

11 months ago · ebc7c6b3b4
parent 14c4ff0f32
commit ebc7c6b3b4
4 changed files with 4 additions and 4 deletions
--- 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()
 !!$
--- 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()
 !!$
--- 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()
 !!$
--- 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()
 !!$