From 0707cc0a72fcb6d3282f8d3e353e21887eb46494 Mon Sep 17 00:00:00 2001 From: sfilippone Date: Fri, 12 Jul 2024 13:01:32 +0200 Subject: [PATCH] Take out reference to elldev_mod --- openacc/impl/psb_d_oacc_csr_csmm.F90 | 6 +++--- openacc/impl/psb_d_oacc_csr_csmv.F90 | 6 +++--- openacc/impl/psb_d_oacc_csr_inner_vect_sv.F90 | 6 +++--- 3 files changed, 9 insertions(+), 9 deletions(-) diff --git a/openacc/impl/psb_d_oacc_csr_csmm.F90 b/openacc/impl/psb_d_oacc_csr_csmm.F90 index e7224764..4b404ad1 100644 --- a/openacc/impl/psb_d_oacc_csr_csmm.F90 +++ b/openacc/impl/psb_d_oacc_csr_csmm.F90 @@ -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 - \ No newline at end of file + diff --git a/openacc/impl/psb_d_oacc_csr_csmv.F90 b/openacc/impl/psb_d_oacc_csr_csmv.F90 index c3291acf..65acc8e4 100644 --- a/openacc/impl/psb_d_oacc_csr_csmv.F90 +++ b/openacc/impl/psb_d_oacc_csr_csmv.F90 @@ -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 - \ No newline at end of file + diff --git a/openacc/impl/psb_d_oacc_csr_inner_vect_sv.F90 b/openacc/impl/psb_d_oacc_csr_inner_vect_sv.F90 index c0461c82..a15a710e 100644 --- a/openacc/impl/psb_d_oacc_csr_inner_vect_sv.F90 +++ b/openacc/impl/psb_d_oacc_csr_inner_vect_sv.F90 @@ -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 - \ No newline at end of file +