From f45de31a3d5e7a37369f758bf1577038963cd343 Mon Sep 17 00:00:00 2001
From: "Victor A. P. Magri" <50467563+victorapm@users.noreply.github.com>
Date: Mon, 5 Jun 2023 18:04:27 -0400
Subject: [PATCH]  Fix exact block inversion with HIP in MGR

Fix cublasHandle -> vendorSolverHandle
---
 src/parcsr_ls/par_mgr_device.c | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/src/parcsr_ls/par_mgr_device.c b/src/parcsr_ls/par_mgr_device.c
index 4697d926f..b4677883e 100644
--- a/src/parcsr_ls/par_mgr_device.c
+++ b/src/parcsr_ls/par_mgr_device.c
@@ -691,7 +691,7 @@ hypre_ParCSRMatrixExtractBlockDiagDevice( hypre_ParCSRMatrix   *A,
                                                   infos,
                                                   num_blocks));
 #elif defined(HYPRE_USING_ROCSOLVER)
-      HYPRE_ROCSOLVER_CALL(rocsolver_dgetrf_batched(hypre_HandleCublasHandle(hypre_handle()),
+      HYPRE_ROCSOLVER_CALL(rocsolver_dgetrf_batched(hypre_HandleVendorSolverHandle(hypre_handle()),
                                                     blk_size,
                                                     blk_size,
                                                     tmpdiag_aop,
@@ -738,7 +738,7 @@ hypre_ParCSRMatrixExtractBlockDiagDevice( hypre_ParCSRMatrix   *A,
                                                   infos,
                                                   num_blocks));
 #elif defined(HYPRE_USING_ROCSOLVER)
-      HYPRE_ROCSOLVER_CALL(rocsolver_dgetri_batched(hypre_HandleCublasHandle(hypre_handle()),
+      HYPRE_ROCSOLVER_CALL(rocsolver_dgetri_batched(hypre_HandleVendorSolverHandle(hypre_handle()),
                                                     blk_size,
                                                     tmpdiag_aop,
                                                     blk_size,