From 835455329dee8055260cd3865774201317d6cd08 Mon Sep 17 00:00:00 2001
From: Mark Gates <mgates3@icl.utk.edu>
Date: Sat, 21 Oct 2023 01:20:36 -0400
Subject: [PATCH] LU: workaround for panel threads in hetrf

---
 src/hetrf.cc | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/src/hetrf.cc b/src/hetrf.cc
index 0787ae8a0..2b01153c1 100644
--- a/src/hetrf.cc
+++ b/src/hetrf.cc
@@ -50,7 +50,9 @@ int64_t hetrf(
         = get_option<double>( opts, Option::PivotThreshold, 1.0 );
     int64_t lookahead = get_option<int64_t>( opts, Option::Lookahead, 1 );
     int64_t ib = get_option<int64_t>( opts, Option::InnerBlocking, 16 );
-    int64_t max_panel_threads = std::max( omp_get_max_threads()/2, 1 );
+
+    // Using > 1 thread leads to hang, reason unclear.
+    int64_t max_panel_threads = 1;  //std::max( omp_get_max_threads()/2, 1 );
     max_panel_threads = get_option<int64_t>( opts, Option::MaxPanelThreads,
                                              max_panel_threads );