fdurastante
/
psblas3
mirror of https://github.com/sfilippone/psblas3.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

Added interfaces for all types of psb_nspaxpby

Browse Source
implement-ainv
Cirdans-Home 4 years ago
parent 68daa7b81b
commit 8d2ab75737
1 changed files with 50 additions and 18 deletions
Show Stats Download Patch File Download Diff File

34
base/modules/serial/psb_serial_mod.f90
Unescape Escape View File

@ -66,6 +66,39 @@ module psb_serial_mod
real(psb_dpk_), intent (in) :: alpha, beta
integer(psb_ipk_), intent(out) :: info
end subroutine psb_d_nspaxpby
subroutine psb_s_nspaxpby(nz,iz,z,alpha, nx, ix, x, beta, ny,iy,y,info)
use psb_const_mod
integer(psb_ipk_), intent(out) :: nz
integer(psb_ipk_), intent(out) :: iz(:)
real(psb_spk_), intent (out) :: z(:)
integer(psb_ipk_), intent(in) :: nx, ny
integer(psb_ipk_), intent(in) :: ix(:), iy(:)
real(psb_spk_), intent (in) :: x(:), y(:)
real(psb_spk_), intent (in) :: alpha, beta
integer(psb_ipk_), intent(out) :: info
end subroutine psb_s_nspaxpby
subroutine psb_c_nspaxpby(nz,iz,z,alpha, nx, ix, x, beta, ny,iy,y,info)
use psb_const_mod
integer(psb_ipk_), intent(out) :: nz
integer(psb_ipk_), intent(out) :: iz(:)
complex(psb_spk_), intent (out) :: z(:)
integer(psb_ipk_), intent(in) :: nx, ny
integer(psb_ipk_), intent(in) :: ix(:), iy(:)
complex(psb_spk_), intent (in) :: x(:), y(:)
complex(psb_spk_), intent (in) :: alpha, beta
integer(psb_ipk_), intent(out) :: info
end subroutine psb_c_nspaxpby
subroutine psb_z_nspaxpby(nz,iz,z,alpha, nx, ix, x, beta, ny,iy,y,info)
use psb_const_mod
integer(psb_ipk_), intent(out) :: nz
integer(psb_ipk_), intent(out) :: iz(:)
complex(psb_dpk_), intent (out) :: z(:)
integer(psb_ipk_), intent(in) :: nx, ny
integer(psb_ipk_), intent(in) :: ix(:), iy(:)
complex(psb_dpk_), intent (in) :: x(:), y(:)
complex(psb_dpk_), intent (in) :: alpha, beta
integer(psb_ipk_), intent(out) :: info
end subroutine psb_z_nspaxpby
end interface psb_nspaxpby
interface
@ -374,4 +407,3 @@ contains
end module psb_serial_mod

Write Preview
Loading…
Cancel
Save