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

Take out reference to elldev_mod

Browse Source
This commit is contained in:
sfilippone
2024-07-12 13:01:32 +02:00
parent 9e8294066d
commit 0707cc0a72
3 changed files with 9 additions and 9 deletions
Download Patch File Download Diff File Expand all files Collapse all files
openacc/impl/psb_d_oacc_csr_csmm.F90
+3 -3
View File
@@ -1,7 +1,7 @@
subroutine psb_d_oacc_csr_csmm(alpha, a, x, beta, y, info, trans)
use psb_base_mod
use elldev_mod
use psb_vectordev_mod
!use elldev_mod
!use psb_vectordev_mod
use psb_d_oacc_csr_mat_mod, psb_protect_name => psb_d_oacc_csr_csmm
implicit none
class(psb_d_oacc_csr_sparse_mat), intent(in) :: a
@@ -83,4 +83,4 @@ subroutine psb_d_oacc_csr_csmm(alpha, a, x, beta, y, info, trans)
return
end subroutine psb_d_oacc_csr_csmm
openacc/impl/psb_d_oacc_csr_csmv.F90
+3 -3
View File
@@ -1,7 +1,7 @@
subroutine psb_d_oacc_csr_csmv(alpha, a, x, beta, y, info, trans)
use psb_base_mod
use elldev_mod
use psb_vectordev_mod
!use elldev_mod
!use psb_vectordev_mod
use psb_d_oacc_csr_mat_mod, psb_protect_name => psb_d_oacc_csr_csmv
implicit none
class(psb_d_oacc_csr_sparse_mat), intent(in) :: a
@@ -78,4 +78,4 @@ subroutine psb_d_oacc_csr_csmv(alpha, a, x, beta, y, info, trans)
return
end subroutine psb_d_oacc_csr_csmv
openacc/impl/psb_d_oacc_csr_inner_vect_sv.F90
+3 -3
View File
@@ -1,7 +1,7 @@
subroutine psb_d_oacc_csr_inner_vect_sv(alpha, a, x, beta, y, info, trans)
use psb_base_mod
use elldev_mod
use psb_vectordev_mod
! use elldev_mod
! use psb_vectordev_mod
use psb_d_oacc_csr_mat_mod, psb_protect_name => psb_d_oacc_csr_inner_vect_sv
use psb_d_oacc_vect_mod
implicit none
@@ -81,4 +81,4 @@ subroutine psb_d_oacc_csr_inner_vect_sv(alpha, a, x, beta, y, info, trans)
9999 call psb_error_handler(err_act)
return
end subroutine psb_d_oacc_csr_inner_vect_sv