From 9a616e191c3d8b27fd593c0d13658d866370a053 Mon Sep 17 00:00:00 2001
From: "Chereshnev, Eugene" <eugene.chereshnev@intel.com>
Date: Mon, 5 Dec 2022 09:46:47 -0800
Subject: [PATCH] Fix uninitialized out vars in *LARR* functions

---
 SRC/dlarra.f | 2 +-
 SRC/dlarrc.f | 6 +++---
 SRC/dlarre.f | 4 ++--
 SRC/slarra.f | 2 +-
 SRC/slarrc.f | 6 +++---
 SRC/slarre.f | 4 ++--
 6 files changed, 12 insertions(+), 12 deletions(-)

diff --git a/SRC/dlarra.f b/SRC/dlarra.f
index 2fb30cd762..a62a079da0 100644
--- a/SRC/dlarra.f
+++ b/SRC/dlarra.f
@@ -164,6 +164,7 @@ SUBROUTINE DLARRA( N, D, E, E2, SPLTOL, TNRM,
 *     .. Executable Statements ..
 *
       INFO = 0
+      NSPLIT = 1
 *
 *     Quick return if possible
 *
@@ -172,7 +173,6 @@ SUBROUTINE DLARRA( N, D, E, E2, SPLTOL, TNRM,
       END IF
 *
 *     Compute splitting points
-      NSPLIT = 1
       IF(SPLTOL.LT.ZERO) THEN
 *        Criterion based on absolute off-diagonal value
          TMP1 = ABS(SPLTOL)* TNRM
diff --git a/SRC/dlarrc.f b/SRC/dlarrc.f
index 55a17626ac..d3fea59666 100644
--- a/SRC/dlarrc.f
+++ b/SRC/dlarrc.f
@@ -167,6 +167,9 @@ SUBROUTINE DLARRC( JOBT, N, VL, VU, D, E, PIVMIN,
 *     .. Executable Statements ..
 *
       INFO = 0
+      LCNT = 0
+      RCNT = 0
+      EIGCNT = 0
 *
 *     Quick return if possible
 *
@@ -174,9 +177,6 @@ SUBROUTINE DLARRC( JOBT, N, VL, VU, D, E, PIVMIN,
          RETURN
       END IF
 *
-      LCNT = 0
-      RCNT = 0
-      EIGCNT = 0
       MATT = LSAME( JOBT, 'T' )
 
 
diff --git a/SRC/dlarre.f b/SRC/dlarre.f
index afbfe6379c..70f59b8295 100644
--- a/SRC/dlarre.f
+++ b/SRC/dlarre.f
@@ -367,6 +367,8 @@ SUBROUTINE DLARRE( RANGE, N, VL, VU, IL, IU, D, E, E2,
 *
 
       INFO = 0
+      NSPLIT = 0
+      M = 0
 *
 *     Quick return if possible
 *
@@ -384,8 +386,6 @@ SUBROUTINE DLARRE( RANGE, N, VL, VU, IL, IU, D, E, E2,
          IRANGE = INDRNG
       END IF
 
-      M = 0
-
 *     Get machine constants
       SAFMIN = DLAMCH( 'S' )
       EPS = DLAMCH( 'P' )
diff --git a/SRC/slarra.f b/SRC/slarra.f
index be81b0f691..2e27383e13 100644
--- a/SRC/slarra.f
+++ b/SRC/slarra.f
@@ -164,6 +164,7 @@ SUBROUTINE SLARRA( N, D, E, E2, SPLTOL, TNRM,
 *     .. Executable Statements ..
 *
       INFO = 0
+      NSPLIT = 1
 *
 *     Quick return if possible
 *
@@ -172,7 +173,6 @@ SUBROUTINE SLARRA( N, D, E, E2, SPLTOL, TNRM,
       END IF
 *
 *     Compute splitting points
-      NSPLIT = 1
       IF(SPLTOL.LT.ZERO) THEN
 *        Criterion based on absolute off-diagonal value
          TMP1 = ABS(SPLTOL)* TNRM
diff --git a/SRC/slarrc.f b/SRC/slarrc.f
index 060051539f..2100d1b3dc 100644
--- a/SRC/slarrc.f
+++ b/SRC/slarrc.f
@@ -167,6 +167,9 @@ SUBROUTINE SLARRC( JOBT, N, VL, VU, D, E, PIVMIN,
 *     .. Executable Statements ..
 *
       INFO = 0
+      LCNT = 0
+      RCNT = 0
+      EIGCNT = 0
 *
 *     Quick return if possible
 *
@@ -174,9 +177,6 @@ SUBROUTINE SLARRC( JOBT, N, VL, VU, D, E, PIVMIN,
          RETURN
       END IF
 *
-      LCNT = 0
-      RCNT = 0
-      EIGCNT = 0
       MATT = LSAME( JOBT, 'T' )
 
 
diff --git a/SRC/slarre.f b/SRC/slarre.f
index 34dd71fd9d..2e34ca5a6a 100644
--- a/SRC/slarre.f
+++ b/SRC/slarre.f
@@ -367,6 +367,8 @@ SUBROUTINE SLARRE( RANGE, N, VL, VU, IL, IU, D, E, E2,
 *
 
       INFO = 0
+      NSPLIT = 0
+      M = 0
 *
 *     Quick return if possible
 *
@@ -384,8 +386,6 @@ SUBROUTINE SLARRE( RANGE, N, VL, VU, IL, IU, D, E, E2,
          IRANGE = INDRNG
       END IF
 
-      M = 0
-
 *     Get machine constants
       SAFMIN = SLAMCH( 'S' )
       EPS = SLAMCH( 'P' )