From 6b5785d1ba177d0ed0df81c08af0012f14b70482 Mon Sep 17 00:00:00 2001
From: Michael Zingale <michael.zingale@stonybrook.edu>
Date: Sun, 28 Jan 2024 08:29:30 -0500
Subject: [PATCH] fix a narrowing in the linpack pivoting (#1458)

---
 util/linpack.H | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/util/linpack.H b/util/linpack.H
index 5fc8c8baf1..03eecbd806 100644
--- a/util/linpack.H
+++ b/util/linpack.H
@@ -76,7 +76,7 @@ void dgefa (RArray2D& a, IArray1D& pivot, int& info)
                 }
             }
 
-            pivot(k) = l;
+            pivot(k) = static_cast<short>(l);
 
             // zero pivot implies this column already triangularized
             if (a(l,k) != 0.0e0_rt) {
@@ -116,7 +116,7 @@ void dgefa (RArray2D& a, IArray1D& pivot, int& info)
 
     }
 
-    pivot(num_eqs) = num_eqs;
+    pivot(num_eqs) = static_cast<short>(num_eqs);
 
     if (a(num_eqs,num_eqs) == 0.0e0_rt) {
         info = num_eqs;