From 478a56b53b77f172276c3a54574ea1bce24d3e73 Mon Sep 17 00:00:00 2001
From: Carl Pearson <cwpears@sandia.gov>
Date: Mon, 12 Jun 2023 09:41:02 -0600
Subject: [PATCH] use host pointer mode in rocBLAS scal

---
 blas/tpls/KokkosBlas1_scal_tpl_spec_decl.hpp | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/blas/tpls/KokkosBlas1_scal_tpl_spec_decl.hpp b/blas/tpls/KokkosBlas1_scal_tpl_spec_decl.hpp
index 4771f0862e..da11555f7b 100644
--- a/blas/tpls/KokkosBlas1_scal_tpl_spec_decl.hpp
+++ b/blas/tpls/KokkosBlas1_scal_tpl_spec_decl.hpp
@@ -299,7 +299,7 @@ namespace Impl {
         KOKKOS_ROCBLAS_SAFE_CALL_IMPL(                                         \
             rocblas_get_pointer_mode(s.handle, &pointer_mode));                \
         KOKKOS_ROCBLAS_SAFE_CALL_IMPL(                                         \
-            rocblas_set_pointer_mode(s.handle, rocblas_pointer_mode_device));  \
+            rocblas_set_pointer_mode(s.handle, rocblas_pointer_mode_host));    \
         KOKKOS_ROCBLAS_SAFE_CALL_IMPL(ROCBLAS_FN(                              \
             s.handle, N, reinterpret_cast<const ROCBLAS_SCALAR_TYPE*>(&alpha), \
             reinterpret_cast<ROCBLAS_SCALAR_TYPE*>(R.data()), one));           \