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

*** empty log message ***

Browse Source
psblas3-type-indexed
Salvatore Filippone 19 years ago
parent 998a25df7e
commit c0526dd9d2
2 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File

2
src/psblas/psb_daxpby.f90
Unescape Escape View File

@ -224,7 +224,7 @@ subroutine psb_daxpbyv(alpha, x, beta,y,desc_a,info)
integer :: int_err(5), icontxt, nprow, npcol, myrow, mycol,& integer :: int_err(5), icontxt, nprow, npcol, myrow, mycol,&
& err_act, n, iix, jjx, temp(2), ix, iy, ijx, m, iiy, in, jjy & err_act, n, iix, jjx, temp(2), ix, iy, ijx, m, iiy, in, jjy
character(len=20) :: name, ch_err character(len=20) :: name, ch_err
logical, parameter :: debug=.true. logical, parameter :: debug=.false.
name='psb_dgeaxpby' name='psb_dgeaxpby'
if(psb_get_errstatus().ne.0) return if(psb_get_errstatus().ne.0) return

2
src/psblas/psb_zaxpby.f90
Unescape Escape View File

@ -223,7 +223,7 @@ subroutine psb_zaxpbyv(alpha, x, beta,y,desc_a,info)
integer :: int_err(5), icontxt, nprow, npcol, myrow, mycol,& integer :: int_err(5), icontxt, nprow, npcol, myrow, mycol,&
& err_act, n, iix, jjx, temp(2), ix, iy, ijx, m, iiy, in, jjy & err_act, n, iix, jjx, temp(2), ix, iy, ijx, m, iiy, in, jjy
character(len=20) :: name, ch_err character(len=20) :: name, ch_err
logical, parameter :: debug=.true. logical, parameter :: debug=.false.
name='psb_dgeaxpby' name='psb_dgeaxpby'
if(psb_get_errstatus().ne.0) return if(psb_get_errstatus().ne.0) return

Write Preview
Loading…
Cancel
Save