From 5c3d5f023582a8b4773ad6df999ee038206d6954 Mon Sep 17 00:00:00 2001 From: Salvatore Filippone Date: Tue, 13 Feb 2024 16:13:06 +0100 Subject: [PATCH] Silly bug in abgdxyz implementation --- base/psblas/psb_caxpby.f90 | 4 ++-- base/psblas/psb_daxpby.f90 | 4 ++-- base/psblas/psb_saxpby.f90 | 4 ++-- base/psblas/psb_zaxpby.f90 | 4 ++-- 4 files changed, 8 insertions(+), 8 deletions(-) diff --git a/base/psblas/psb_caxpby.f90 b/base/psblas/psb_caxpby.f90 index a41e6ef2..f19f2caf 100644 --- a/base/psblas/psb_caxpby.f90 +++ b/base/psblas/psb_caxpby.f90 @@ -745,8 +745,8 @@ end subroutine psb_caddconst_vect subroutine psb_cabgdxyz_vect(alpha, beta, gamma, delta, x, y, z,& & desc_a, info) - import :: psb_desc_type, psb_spk_, psb_ipk_, & - & psb_c_vect_type, psb_cspmat_type + use psb_base_mod, psb_protect_name => psb_cabgdxyz_vect + implicit none type(psb_c_vect_type), intent (inout) :: x type(psb_c_vect_type), intent (inout) :: y type(psb_c_vect_type), intent (inout) :: z diff --git a/base/psblas/psb_daxpby.f90 b/base/psblas/psb_daxpby.f90 index 4805727e..690c5080 100644 --- a/base/psblas/psb_daxpby.f90 +++ b/base/psblas/psb_daxpby.f90 @@ -745,8 +745,8 @@ end subroutine psb_daddconst_vect subroutine psb_dabgdxyz_vect(alpha, beta, gamma, delta, x, y, z,& & desc_a, info) - import :: psb_desc_type, psb_dpk_, psb_ipk_, & - & psb_d_vect_type, psb_dspmat_type + use psb_base_mod, psb_protect_name => psb_dabgdxyz_vect + implicit none type(psb_d_vect_type), intent (inout) :: x type(psb_d_vect_type), intent (inout) :: y type(psb_d_vect_type), intent (inout) :: z diff --git a/base/psblas/psb_saxpby.f90 b/base/psblas/psb_saxpby.f90 index 581d64cd..4b48f363 100644 --- a/base/psblas/psb_saxpby.f90 +++ b/base/psblas/psb_saxpby.f90 @@ -745,8 +745,8 @@ end subroutine psb_saddconst_vect subroutine psb_sabgdxyz_vect(alpha, beta, gamma, delta, x, y, z,& & desc_a, info) - import :: psb_desc_type, psb_spk_, psb_ipk_, & - & psb_s_vect_type, psb_sspmat_type + use psb_base_mod, psb_protect_name => psb_sabgdxyz_vect + implicit none type(psb_s_vect_type), intent (inout) :: x type(psb_s_vect_type), intent (inout) :: y type(psb_s_vect_type), intent (inout) :: z diff --git a/base/psblas/psb_zaxpby.f90 b/base/psblas/psb_zaxpby.f90 index df13f242..6bacacda 100644 --- a/base/psblas/psb_zaxpby.f90 +++ b/base/psblas/psb_zaxpby.f90 @@ -745,8 +745,8 @@ end subroutine psb_zaddconst_vect subroutine psb_zabgdxyz_vect(alpha, beta, gamma, delta, x, y, z,& & desc_a, info) - import :: psb_desc_type, psb_dpk_, psb_ipk_, & - & psb_z_vect_type, psb_zspmat_type + use psb_base_mod, psb_protect_name => psb_zabgdxyz_vect + implicit none type(psb_z_vect_type), intent (inout) :: x type(psb_z_vect_type), intent (inout) :: y type(psb_z_vect_type), intent (inout) :: z