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

Fix usage of sync()

Browse Source
repack-newsolve
Salvatore Filippone 7 months ago
parent a177e94ba5
commit 42293c62b6
4 changed files with 12 additions and 0 deletions
Show Stats Download Patch File Download Diff File

3
base/serial/impl/psb_c_base_mat_impl.F90
Unescape Escape View File

@ -2060,6 +2060,8 @@ subroutine psb_c_base_vect_cssv(alpha,a,x,beta,y,info,trans,scale,d)
goto 9999 goto 9999
end if end if
if (x%is_dev()) call x%sync()
if (y%is_dev()) call y%sync()
if (present(d)) then if (present(d)) then
call d%sync() call d%sync()
if (present(scale)) then if (present(scale)) then
@ -2080,6 +2082,7 @@ subroutine psb_c_base_vect_cssv(alpha,a,x,beta,y,info,trans,scale,d)
if (info == psb_success_)& if (info == psb_success_)&
& call a%inner_spsm(alpha,tmpv,beta,y,info,trans) & call a%inner_spsm(alpha,tmpv,beta,y,info,trans)
call y%set_host()
if (info == psb_success_) then if (info == psb_success_) then
call tmpv%free(info) call tmpv%free(info)
if (info == psb_success_) deallocate(tmpv,stat=info) if (info == psb_success_) deallocate(tmpv,stat=info)

3
base/serial/impl/psb_d_base_mat_impl.F90
Unescape Escape View File

@ -2060,6 +2060,8 @@ subroutine psb_d_base_vect_cssv(alpha,a,x,beta,y,info,trans,scale,d)
goto 9999 goto 9999
end if end if
if (x%is_dev()) call x%sync()
if (y%is_dev()) call y%sync()
if (present(d)) then if (present(d)) then
call d%sync() call d%sync()
if (present(scale)) then if (present(scale)) then
@ -2080,6 +2082,7 @@ subroutine psb_d_base_vect_cssv(alpha,a,x,beta,y,info,trans,scale,d)
if (info == psb_success_)& if (info == psb_success_)&
& call a%inner_spsm(alpha,tmpv,beta,y,info,trans) & call a%inner_spsm(alpha,tmpv,beta,y,info,trans)
call y%set_host()
if (info == psb_success_) then if (info == psb_success_) then
call tmpv%free(info) call tmpv%free(info)
if (info == psb_success_) deallocate(tmpv,stat=info) if (info == psb_success_) deallocate(tmpv,stat=info)

3
base/serial/impl/psb_s_base_mat_impl.F90
Unescape Escape View File

@ -2060,6 +2060,8 @@ subroutine psb_s_base_vect_cssv(alpha,a,x,beta,y,info,trans,scale,d)
goto 9999 goto 9999
end if end if
if (x%is_dev()) call x%sync()
if (y%is_dev()) call y%sync()
if (present(d)) then if (present(d)) then
call d%sync() call d%sync()
if (present(scale)) then if (present(scale)) then
@ -2080,6 +2082,7 @@ subroutine psb_s_base_vect_cssv(alpha,a,x,beta,y,info,trans,scale,d)
if (info == psb_success_)& if (info == psb_success_)&
& call a%inner_spsm(alpha,tmpv,beta,y,info,trans) & call a%inner_spsm(alpha,tmpv,beta,y,info,trans)
call y%set_host()
if (info == psb_success_) then if (info == psb_success_) then
call tmpv%free(info) call tmpv%free(info)
if (info == psb_success_) deallocate(tmpv,stat=info) if (info == psb_success_) deallocate(tmpv,stat=info)

3
base/serial/impl/psb_z_base_mat_impl.F90
Unescape Escape View File

@ -2060,6 +2060,8 @@ subroutine psb_z_base_vect_cssv(alpha,a,x,beta,y,info,trans,scale,d)
goto 9999 goto 9999
end if end if
if (x%is_dev()) call x%sync()
if (y%is_dev()) call y%sync()
if (present(d)) then if (present(d)) then
call d%sync() call d%sync()
if (present(scale)) then if (present(scale)) then
@ -2080,6 +2082,7 @@ subroutine psb_z_base_vect_cssv(alpha,a,x,beta,y,info,trans,scale,d)
if (info == psb_success_)& if (info == psb_success_)&
& call a%inner_spsm(alpha,tmpv,beta,y,info,trans) & call a%inner_spsm(alpha,tmpv,beta,y,info,trans)
call y%set_host()
if (info == psb_success_) then if (info == psb_success_) then
call tmpv%free(info) call tmpv%free(info)
if (info == psb_success_) deallocate(tmpv,stat=info) if (info == psb_success_) deallocate(tmpv,stat=info)

Write Preview
Loading…
Cancel
Save