fdurastante/psblas3
1
0
Fork 0
mirror of https://github.com/sfilippone/psblas3.git synced 2026-10-18 20:02:27 +00:00
Code Issues Packages Projects Releases Wiki Activity

psblas:

Browse Source 
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.
This commit is contained in:
Salvatore Filippone
2015-07-02 18:21:24 +00:00
parent 6eb6fa305c
commit b313f96bd8
5 changed files with 5 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files
base/serial/psi_c_serial_impl.f90
+1 -1
View File
@@ -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
base/serial/psi_d_serial_impl.f90
+1 -1
View File
@@ -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
base/serial/psi_i_serial_impl.f90
+1 -1
View File
@@ -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
base/serial/psi_s_serial_impl.f90
+1 -1
View File
@@ -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
base/serial/psi_z_serial_impl.f90
+1 -1
View File
@@ -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