fdurastante/psblas3
1
0
Fork 0
mirror of https://github.com/sfilippone/psblas3.git synced 2026-10-06 22:55:08 +00:00
Code Issues Packages Projects Releases Wiki Activity

Fix base implementation of abgdxyz to call set_host

Browse Source
This commit is contained in:
Salvatore Filippone
2024-02-17 09:40:09 +01:00
parent b8f9badf95
commit f4c7604f61
4 changed files with 8 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files
base/modules/serial/psb_c_base_vect_mod.F90
+2
View File
@@ -1165,6 +1165,8 @@ contains
if (y%is_dev().and.(beta/=czero)) call y%sync()
if (z%is_dev().and.(delta/=czero)) call z%sync()
call psi_cabgdxyz(m,alpha, beta, gamma,delta,x%v, y%v, z%v, info)
call y%set_host()
call z%set_host()
end if
end subroutine c_base_abgdxyz
base/modules/serial/psb_d_base_vect_mod.F90
+2
View File
@@ -1172,6 +1172,8 @@ contains
if (y%is_dev().and.(beta/=dzero)) call y%sync()
if (z%is_dev().and.(delta/=dzero)) call z%sync()
call psi_dabgdxyz(m,alpha, beta, gamma,delta,x%v, y%v, z%v, info)
call y%set_host()
call z%set_host()
end if
end subroutine d_base_abgdxyz
base/modules/serial/psb_s_base_vect_mod.F90
+2
View File
@@ -1172,6 +1172,8 @@ contains
if (y%is_dev().and.(beta/=szero)) call y%sync()
if (z%is_dev().and.(delta/=szero)) call z%sync()
call psi_sabgdxyz(m,alpha, beta, gamma,delta,x%v, y%v, z%v, info)
call y%set_host()
call z%set_host()
end if
end subroutine s_base_abgdxyz
base/modules/serial/psb_z_base_vect_mod.F90
+2
View File
@@ -1165,6 +1165,8 @@ contains
if (y%is_dev().and.(beta/=zzero)) call y%sync()
if (z%is_dev().and.(delta/=zzero)) call z%sync()
call psi_zabgdxyz(m,alpha, beta, gamma,delta,x%v, y%v, z%v, info)
call y%set_host()
call z%set_host()
end if
end subroutine z_base_abgdxyz