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

Fix KIND for NR in axpby

Browse Source
nond-rep
Salvatore Filippone 12 months ago
parent 3121c43582
commit 9ced67634d
4 changed files with 8 additions and 8 deletions
Show Stats Download Patch File Download Diff File

4
base/psblas/psb_caxpby.f90
Unescape Escape View File

@ -756,8 +756,8 @@ subroutine psb_cabgdxyz_vect(alpha, beta, gamma, delta, x, y, z,&
! locals ! locals
type(psb_ctxt_type) :: ctxt type(psb_ctxt_type) :: ctxt
integer(psb_ipk_) :: np, me,& integer(psb_ipk_) :: np, me,&
& err_act, iix, jjx, iiy, jjy & err_act, iix, jjx, iiy, jjy, nr
integer(psb_lpk_) :: ix, ijx, iy, ijy, m, nr integer(psb_lpk_) :: ix, ijx, iy, ijy, m
character(len=20) :: name, ch_err character(len=20) :: name, ch_err
name='psb_c_addconst_vect' name='psb_c_addconst_vect'

4
base/psblas/psb_daxpby.f90
Unescape Escape View File

@ -756,8 +756,8 @@ subroutine psb_dabgdxyz_vect(alpha, beta, gamma, delta, x, y, z,&
! locals ! locals
type(psb_ctxt_type) :: ctxt type(psb_ctxt_type) :: ctxt
integer(psb_ipk_) :: np, me,& integer(psb_ipk_) :: np, me,&
& err_act, iix, jjx, iiy, jjy & err_act, iix, jjx, iiy, jjy, nr
integer(psb_lpk_) :: ix, ijx, iy, ijy, m, nr integer(psb_lpk_) :: ix, ijx, iy, ijy, m
character(len=20) :: name, ch_err character(len=20) :: name, ch_err
name='psb_d_addconst_vect' name='psb_d_addconst_vect'

4
base/psblas/psb_saxpby.f90
Unescape Escape View File

@ -756,8 +756,8 @@ subroutine psb_sabgdxyz_vect(alpha, beta, gamma, delta, x, y, z,&
! locals ! locals
type(psb_ctxt_type) :: ctxt type(psb_ctxt_type) :: ctxt
integer(psb_ipk_) :: np, me,& integer(psb_ipk_) :: np, me,&
& err_act, iix, jjx, iiy, jjy & err_act, iix, jjx, iiy, jjy, nr
integer(psb_lpk_) :: ix, ijx, iy, ijy, m, nr integer(psb_lpk_) :: ix, ijx, iy, ijy, m
character(len=20) :: name, ch_err character(len=20) :: name, ch_err
name='psb_s_addconst_vect' name='psb_s_addconst_vect'

4
base/psblas/psb_zaxpby.f90
Unescape Escape View File

@ -756,8 +756,8 @@ subroutine psb_zabgdxyz_vect(alpha, beta, gamma, delta, x, y, z,&
! locals ! locals
type(psb_ctxt_type) :: ctxt type(psb_ctxt_type) :: ctxt
integer(psb_ipk_) :: np, me,& integer(psb_ipk_) :: np, me,&
& err_act, iix, jjx, iiy, jjy & err_act, iix, jjx, iiy, jjy, nr
integer(psb_lpk_) :: ix, ijx, iy, ijy, m, nr integer(psb_lpk_) :: ix, ijx, iy, ijy, m
character(len=20) :: name, ch_err character(len=20) :: name, ch_err
name='psb_z_addconst_vect' name='psb_z_addconst_vect'

Write Preview
Loading…
Cancel
Save