fix a narrowing in the linpack pivoting (#1458)

AMReX-Astro · Jan 28, 2024 · 6b5785d · 6b5785d
1 parent 0e28d42
commit 6b5785d
Showing 1 changed file with 2 additions and 2 deletions.
diff --git 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;