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

Take out reference to elldev_mod

Browse Source
oacc_loloum
sfilippone 6 months ago
parent 9e8294066d
commit 0707cc0a72
3 changed files with 9 additions and 9 deletions
Show Stats Download Patch File Download Diff File

6
openacc/impl/psb_d_oacc_csr_csmm.F90
Unescape Escape View File

@ -1,7 +1,7 @@
subroutine psb_d_oacc_csr_csmm(alpha, a, x, beta, y, info, trans) subroutine psb_d_oacc_csr_csmm(alpha, a, x, beta, y, info, trans)
use psb_base_mod use psb_base_mod
use elldev_mod !use elldev_mod
use psb_vectordev_mod !use psb_vectordev_mod
use psb_d_oacc_csr_mat_mod, psb_protect_name => psb_d_oacc_csr_csmm use psb_d_oacc_csr_mat_mod, psb_protect_name => psb_d_oacc_csr_csmm
implicit none implicit none
class(psb_d_oacc_csr_sparse_mat), intent(in) :: a 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 return
end subroutine psb_d_oacc_csr_csmm end subroutine psb_d_oacc_csr_csmm

6
openacc/impl/psb_d_oacc_csr_csmv.F90
Unescape Escape View File

@ -1,7 +1,7 @@
subroutine psb_d_oacc_csr_csmv(alpha, a, x, beta, y, info, trans) subroutine psb_d_oacc_csr_csmv(alpha, a, x, beta, y, info, trans)
use psb_base_mod use psb_base_mod
use elldev_mod !use elldev_mod
use psb_vectordev_mod !use psb_vectordev_mod
use psb_d_oacc_csr_mat_mod, psb_protect_name => psb_d_oacc_csr_csmv use psb_d_oacc_csr_mat_mod, psb_protect_name => psb_d_oacc_csr_csmv
implicit none implicit none
class(psb_d_oacc_csr_sparse_mat), intent(in) :: a 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 return
end subroutine psb_d_oacc_csr_csmv end subroutine psb_d_oacc_csr_csmv

6
openacc/impl/psb_d_oacc_csr_inner_vect_sv.F90
Unescape Escape View File

@ -1,7 +1,7 @@
subroutine psb_d_oacc_csr_inner_vect_sv(alpha, a, x, beta, y, info, trans) subroutine psb_d_oacc_csr_inner_vect_sv(alpha, a, x, beta, y, info, trans)
use psb_base_mod use psb_base_mod
use elldev_mod ! use elldev_mod
use psb_vectordev_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_csr_mat_mod, psb_protect_name => psb_d_oacc_csr_inner_vect_sv
use psb_d_oacc_vect_mod use psb_d_oacc_vect_mod
implicit none 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) 9999 call psb_error_handler(err_act)
return return
end subroutine psb_d_oacc_csr_inner_vect_sv end subroutine psb_d_oacc_csr_inner_vect_sv

Write Preview
Loading…
Cancel
Save