Silly bug in abgdxyz implementation

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_, &
+  use psb_base_mod, psb_protect_name => psb_cabgdxyz_vect
-       & psb_c_vect_type, psb_cspmat_type
+  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

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_, &
+  use psb_base_mod, psb_protect_name => psb_dabgdxyz_vect
-       & psb_d_vect_type, psb_dspmat_type
+  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

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_, &
+  use psb_base_mod, psb_protect_name => psb_sabgdxyz_vect
-       & psb_s_vect_type, psb_sspmat_type
+  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

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_, &
+  use psb_base_mod, psb_protect_name => psb_zabgdxyz_vect
-       & psb_z_vect_type, psb_zspmat_type
+  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