From 9a616e191c3d8b27fd593c0d13658d866370a053 Mon Sep 17 00:00:00 2001 From: "Chereshnev, Eugene" 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 2fb30cd76..a62a079da 100644 --- a/SRC/dlarra.f +++ b/SRC/dlarra.f @@ -164,6 +164,7 @@ * .. Executable Statements .. * INFO = 0 + NSPLIT = 1 * * Quick return if possible * @@ -172,7 +173,6 @@ 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 55a17626a..d3fea5966 100644 --- a/SRC/dlarrc.f +++ b/SRC/dlarrc.f @@ -167,6 +167,9 @@ * .. Executable Statements .. * INFO = 0 + LCNT = 0 + RCNT = 0 + EIGCNT = 0 * * Quick return if possible * @@ -174,9 +177,6 @@ RETURN END IF * - LCNT = 0 - RCNT = 0 - EIGCNT = 0 MATT = LSAME( JOBT, 'T' ) diff --git a/SRC/dlarre.f b/SRC/dlarre.f index afbfe6379..70f59b829 100644 --- a/SRC/dlarre.f +++ b/SRC/dlarre.f @@ -367,6 +367,8 @@ * INFO = 0 + NSPLIT = 0 + M = 0 * * Quick return if possible * @@ -384,8 +386,6 @@ 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 be81b0f69..2e27383e1 100644 --- a/SRC/slarra.f +++ b/SRC/slarra.f @@ -164,6 +164,7 @@ * .. Executable Statements .. * INFO = 0 + NSPLIT = 1 * * Quick return if possible * @@ -172,7 +173,6 @@ 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 060051539..2100d1b3d 100644 --- a/SRC/slarrc.f +++ b/SRC/slarrc.f @@ -167,6 +167,9 @@ * .. Executable Statements .. * INFO = 0 + LCNT = 0 + RCNT = 0 + EIGCNT = 0 * * Quick return if possible * @@ -174,9 +177,6 @@ RETURN END IF * - LCNT = 0 - RCNT = 0 - EIGCNT = 0 MATT = LSAME( JOBT, 'T' ) diff --git a/SRC/slarre.f b/SRC/slarre.f index 34dd71fd9..2e34ca5a6 100644 --- a/SRC/slarre.f +++ b/SRC/slarre.f @@ -367,6 +367,8 @@ * INFO = 0 + NSPLIT = 0 + M = 0 * * Quick return if possible * @@ -384,8 +386,6 @@ IRANGE = INDRNG END IF - M = 0 - * Get machine constants SAFMIN = SLAMCH( 'S' ) EPS = SLAMCH( 'P' )