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

Improve cuda%zero()

Browse Source
This commit is contained in:
sfilippone
2024-02-20 14:04:23 +01:00
parent 0e269ed641
commit b5d5f97661
5 changed files with 15 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files
cuda/psb_c_cuda_vect_mod.F90
+3 -1
View File
@@ -668,7 +668,9 @@ contains
use psi_serial_mod
implicit none
class(psb_c_vect_cuda), intent(inout) :: x
! Since we are overwriting, make sure to do it
! on the GPU side
call x%set_dev()
call x%set_scal(czero)
end subroutine c_cuda_zero
cuda/psb_d_cuda_vect_mod.F90
+3 -1
View File
@@ -668,7 +668,9 @@ contains
use psi_serial_mod
implicit none
class(psb_d_vect_cuda), intent(inout) :: x
! Since we are overwriting, make sure to do it
! on the GPU side
call x%set_dev()
call x%set_scal(dzero)
end subroutine d_cuda_zero
cuda/psb_i_cuda_vect_mod.F90
+3 -1
View File
@@ -650,7 +650,9 @@ contains
use psi_serial_mod
implicit none
class(psb_i_vect_cuda), intent(inout) :: x
! Since we are overwriting, make sure to do it
! on the GPU side
call x%set_dev()
call x%set_scal(izero)
end subroutine i_cuda_zero
cuda/psb_s_cuda_vect_mod.F90
+3 -1
View File
@@ -668,7 +668,9 @@ contains
use psi_serial_mod
implicit none
class(psb_s_vect_cuda), intent(inout) :: x
! Since we are overwriting, make sure to do it
! on the GPU side
call x%set_dev()
call x%set_scal(szero)
end subroutine s_cuda_zero
cuda/psb_z_cuda_vect_mod.F90
+3 -1
View File
@@ -668,7 +668,9 @@ contains
use psi_serial_mod
implicit none
class(psb_z_vect_cuda), intent(inout) :: x
! Since we are overwriting, make sure to do it
! on the GPU side
call x%set_dev()
call x%set_scal(zzero)
end subroutine z_cuda_zero