Fix interface between vect and base_vect%ABGD

10 months ago · b8f9badf95
parent 2a40b82b58
commit b8f9badf95
4 changed files with 4 additions and 4 deletions
--- 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

--- 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

--- 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

--- 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