fdurastante/psblas3
1
0
Fork 0
mirror of https://github.com/sfilippone/psblas3.git synced 2026-10-17 03:12:15 +00:00
Code Issues Packages Projects Releases Wiki Activity

Fix missing method in oacc_ell

Browse Source
This commit is contained in:
sfilippone
2024-08-08 15:08:45 +02:00
parent 8220140729
commit 9314b2cf53
4 changed files with 48 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files
openacc/psb_c_oacc_ell_mat_mod.F90
+12
View File
@@ -303,6 +303,18 @@ contains
call tmpa%set_sync()
end subroutine c_oacc_ell_sync
subroutine c_oacc_ell_to_dev_scalar(v)
implicit none
complex(psb_spk_), intent(in) :: v(:)
!$acc update device(v)
end subroutine c_oacc_ell_to_dev_scalar
subroutine c_oacc_ell_to_dev(v)
implicit none
complex(psb_spk_), intent(in) :: v(:,:)
!$acc update device(v)
end subroutine c_oacc_ell_to_dev
subroutine c_oacc_ell_to_host(v)
implicit none
complex(psb_spk_), intent(in) :: v(:,:)
openacc/psb_d_oacc_ell_mat_mod.F90
+12
View File
@@ -303,6 +303,18 @@ contains
call tmpa%set_sync()
end subroutine d_oacc_ell_sync
subroutine d_oacc_ell_to_dev_scalar(v)
implicit none
real(psb_dpk_), intent(in) :: v(:)
!$acc update device(v)
end subroutine d_oacc_ell_to_dev_scalar
subroutine d_oacc_ell_to_dev(v)
implicit none
real(psb_dpk_), intent(in) :: v(:,:)
!$acc update device(v)
end subroutine d_oacc_ell_to_dev
subroutine d_oacc_ell_to_host(v)
implicit none
real(psb_dpk_), intent(in) :: v(:,:)
openacc/psb_s_oacc_ell_mat_mod.F90
+12
View File
@@ -303,6 +303,18 @@ contains
call tmpa%set_sync()
end subroutine s_oacc_ell_sync
subroutine s_oacc_ell_to_dev_scalar(v)
implicit none
real(psb_spk_), intent(in) :: v(:)
!$acc update device(v)
end subroutine s_oacc_ell_to_dev_scalar
subroutine s_oacc_ell_to_dev(v)
implicit none
real(psb_spk_), intent(in) :: v(:,:)
!$acc update device(v)
end subroutine s_oacc_ell_to_dev
subroutine s_oacc_ell_to_host(v)
implicit none
real(psb_spk_), intent(in) :: v(:,:)
openacc/psb_z_oacc_ell_mat_mod.F90
+12
View File
@@ -303,6 +303,18 @@ contains
call tmpa%set_sync()
end subroutine z_oacc_ell_sync
subroutine z_oacc_ell_to_dev_scalar(v)
implicit none
complex(psb_dpk_), intent(in) :: v(:)
!$acc update device(v)
end subroutine z_oacc_ell_to_dev_scalar
subroutine z_oacc_ell_to_dev(v)
implicit none
complex(psb_dpk_), intent(in) :: v(:,:)
!$acc update device(v)
end subroutine z_oacc_ell_to_dev
subroutine z_oacc_ell_to_host(v)
implicit none
complex(psb_dpk_), intent(in) :: v(:,:)