psblas:

base/serial/psi_c_serial_impl.f90 base/serial/psi_d_serial_impl.f90 base/serial/psi_i_serial_impl.f90 base/serial/psi_s_serial_impl.f90 base/serial/psi_z_serial_impl.f90 New gth for multivectors.
10 years ago · b313f96bd8
parent 6eb6fa305c
commit b313f96bd8
5 changed files with 5 additions and 5 deletions
--- a/base/serial/psi_c_serial_impl.f90
+++ b/base/serial/psi_c_serial_impl.f90
@ -113,7 +113,7 @@ subroutine psi_cgthmv(n,k,idx,alpha,x,beta,y)
  use psb_const_mod
  implicit none

-  integer(psb_ipk_) :: n, idx(:)
+  integer(psb_ipk_) :: n, k, idx(:)
  complex(psb_spk_) :: x(:,:), y(:),alpha,beta

  ! Locals
--- a/base/serial/psi_d_serial_impl.f90
+++ b/base/serial/psi_d_serial_impl.f90
@ -113,7 +113,7 @@ subroutine psi_dgthmv(n,k,idx,alpha,x,beta,y)
  use psb_const_mod
  implicit none

-  integer(psb_ipk_) :: n, idx(:)
+  integer(psb_ipk_) :: n, k, idx(:)
  real(psb_dpk_) :: x(:,:), y(:),alpha,beta

  ! Locals
--- a/base/serial/psi_i_serial_impl.f90
+++ b/base/serial/psi_i_serial_impl.f90
@ -113,7 +113,7 @@ subroutine psi_igthmv(n,k,idx,alpha,x,beta,y)
  use psb_const_mod
  implicit none

-  integer(psb_ipk_) :: n, idx(:)
+  integer(psb_ipk_) :: n, k, idx(:)
  integer(psb_ipk_) :: x(:,:), y(:),alpha,beta

  ! Locals
--- a/base/serial/psi_s_serial_impl.f90
+++ b/base/serial/psi_s_serial_impl.f90
@ -113,7 +113,7 @@ subroutine psi_sgthmv(n,k,idx,alpha,x,beta,y)
  use psb_const_mod
  implicit none

-  integer(psb_ipk_) :: n, idx(:)
+  integer(psb_ipk_) :: n, k, idx(:)
  real(psb_spk_) :: x(:,:), y(:),alpha,beta

  ! Locals
--- a/base/serial/psi_z_serial_impl.f90
+++ b/base/serial/psi_z_serial_impl.f90
@ -113,7 +113,7 @@ subroutine psi_zgthmv(n,k,idx,alpha,x,beta,y)
  use psb_const_mod
  implicit none

-  integer(psb_ipk_) :: n, idx(:)
+  integer(psb_ipk_) :: n, k, idx(:)
  complex(psb_dpk_) :: x(:,:), y(:),alpha,beta

  ! Locals