From b8f9badf954aec07365af71b4d7fc1209fcc890a Mon Sep 17 00:00:00 2001 From: Salvatore Filippone Date: Wed, 14 Feb 2024 20:05:52 +0100 Subject: [PATCH] Fix interface between vect and base_vect%ABGD --- base/modules/serial/psb_c_vect_mod.F90 | 2 +- base/modules/serial/psb_d_vect_mod.F90 | 2 +- base/modules/serial/psb_s_vect_mod.F90 | 2 +- base/modules/serial/psb_z_vect_mod.F90 | 2 +- 4 files changed, 4 insertions(+), 4 deletions(-) diff --git a/base/modules/serial/psb_c_vect_mod.F90 b/base/modules/serial/psb_c_vect_mod.F90 index 2eebb0da..e0488def 100644 --- a/base/modules/serial/psb_c_vect_mod.F90 +++ b/base/modules/serial/psb_c_vect_mod.F90 @@ -784,7 +784,7 @@ contains integer(psb_ipk_), intent(out) :: info if (allocated(z%v)) & - call z%abgdxyz(m,alpha,beta,gamma,delta,x,y,info) + call z%v%abgdxyz(m,alpha,beta,gamma,delta,x%v,y%v,info) end subroutine c_vect_abgdxyz diff --git a/base/modules/serial/psb_d_vect_mod.F90 b/base/modules/serial/psb_d_vect_mod.F90 index bbb966ed..07007452 100644 --- a/base/modules/serial/psb_d_vect_mod.F90 +++ b/base/modules/serial/psb_d_vect_mod.F90 @@ -791,7 +791,7 @@ contains integer(psb_ipk_), intent(out) :: info if (allocated(z%v)) & - call z%abgdxyz(m,alpha,beta,gamma,delta,x,y,info) + call z%v%abgdxyz(m,alpha,beta,gamma,delta,x%v,y%v,info) end subroutine d_vect_abgdxyz diff --git a/base/modules/serial/psb_s_vect_mod.F90 b/base/modules/serial/psb_s_vect_mod.F90 index 0ffd199f..aa16a04d 100644 --- a/base/modules/serial/psb_s_vect_mod.F90 +++ b/base/modules/serial/psb_s_vect_mod.F90 @@ -791,7 +791,7 @@ contains integer(psb_ipk_), intent(out) :: info if (allocated(z%v)) & - call z%abgdxyz(m,alpha,beta,gamma,delta,x,y,info) + call z%v%abgdxyz(m,alpha,beta,gamma,delta,x%v,y%v,info) end subroutine s_vect_abgdxyz diff --git a/base/modules/serial/psb_z_vect_mod.F90 b/base/modules/serial/psb_z_vect_mod.F90 index 1ea1fd4a..58bf6b18 100644 --- a/base/modules/serial/psb_z_vect_mod.F90 +++ b/base/modules/serial/psb_z_vect_mod.F90 @@ -784,7 +784,7 @@ contains integer(psb_ipk_), intent(out) :: info if (allocated(z%v)) & - call z%abgdxyz(m,alpha,beta,gamma,delta,x,y,info) + call z%v%abgdxyz(m,alpha,beta,gamma,delta,x%v,y%v,info) end subroutine z_vect_abgdxyz