Browse Source
Fix uninitialized variables on quick return path (Reference-LAPACK PR775)
tags/v0.3.22^2
Martin Kroeker
GitHub
3 years ago
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23
6 changed files with 12 additions and 12 deletions
Unified View
Diff Options
-
+1 -1lapack-netlib/SRC/dlarra.f
-
+3 -3lapack-netlib/SRC/dlarrc.f
-
+2 -2lapack-netlib/SRC/dlarre.f
-
+1 -1lapack-netlib/SRC/slarra.f
-
+3 -3lapack-netlib/SRC/slarrc.f
-
+2 -2lapack-netlib/SRC/slarre.f
+ 1
- 1
lapack-netlib/SRC/dlarra.f
View File
| @@ -164,6 +164,7 @@ | |||||
| * .. Executable Statements .. | * .. Executable Statements .. | ||||
| * | * | ||||
| INFO = 0 | INFO = 0 | ||||
| NSPLIT = 1 | |||||
| * | * | ||||
| * Quick return if possible | * Quick return if possible | ||||
| * | * | ||||
| @@ -172,7 +173,6 @@ | |||||
| END IF | END IF | ||||
| * | * | ||||
| * Compute splitting points | * Compute splitting points | ||||
| NSPLIT = 1 | |||||
| IF(SPLTOL.LT.ZERO) THEN | IF(SPLTOL.LT.ZERO) THEN | ||||
| * Criterion based on absolute off-diagonal value | * Criterion based on absolute off-diagonal value | ||||
| TMP1 = ABS(SPLTOL)* TNRM | TMP1 = ABS(SPLTOL)* TNRM | ||||
+ 3
- 3
lapack-netlib/SRC/dlarrc.f
View File
| @@ -167,6 +167,9 @@ | |||||
| * .. Executable Statements .. | * .. Executable Statements .. | ||||
| * | * | ||||
| INFO = 0 | INFO = 0 | ||||
| LCNT = 0 | |||||
| RCNT = 0 | |||||
| EIGCNT = 0 | |||||
| * | * | ||||
| * Quick return if possible | * Quick return if possible | ||||
| * | * | ||||
| @@ -174,9 +177,6 @@ | |||||
| RETURN | RETURN | ||||
| END IF | END IF | ||||
| * | * | ||||
| LCNT = 0 | |||||
| RCNT = 0 | |||||
| EIGCNT = 0 | |||||
| MATT = LSAME( JOBT, 'T' ) | MATT = LSAME( JOBT, 'T' ) | ||||
+ 2
- 2
lapack-netlib/SRC/dlarre.f
View File
| @@ -367,6 +367,8 @@ | |||||
| * | * | ||||
| INFO = 0 | INFO = 0 | ||||
| NSPLIT = 0 | |||||
| M = 0 | |||||
| * | * | ||||
| * Quick return if possible | * Quick return if possible | ||||
| * | * | ||||
| @@ -384,8 +386,6 @@ | |||||
| IRANGE = INDRNG | IRANGE = INDRNG | ||||
| END IF | END IF | ||||
| M = 0 | |||||
| * Get machine constants | * Get machine constants | ||||
| SAFMIN = DLAMCH( 'S' ) | SAFMIN = DLAMCH( 'S' ) | ||||
| EPS = DLAMCH( 'P' ) | EPS = DLAMCH( 'P' ) | ||||
+ 1
- 1
lapack-netlib/SRC/slarra.f
View File
| @@ -164,6 +164,7 @@ | |||||
| * .. Executable Statements .. | * .. Executable Statements .. | ||||
| * | * | ||||
| INFO = 0 | INFO = 0 | ||||
| NSPLIT = 1 | |||||
| * | * | ||||
| * Quick return if possible | * Quick return if possible | ||||
| * | * | ||||
| @@ -172,7 +173,6 @@ | |||||
| END IF | END IF | ||||
| * | * | ||||
| * Compute splitting points | * Compute splitting points | ||||
| NSPLIT = 1 | |||||
| IF(SPLTOL.LT.ZERO) THEN | IF(SPLTOL.LT.ZERO) THEN | ||||
| * Criterion based on absolute off-diagonal value | * Criterion based on absolute off-diagonal value | ||||
| TMP1 = ABS(SPLTOL)* TNRM | TMP1 = ABS(SPLTOL)* TNRM | ||||
+ 3
- 3
lapack-netlib/SRC/slarrc.f
View File
| @@ -167,6 +167,9 @@ | |||||
| * .. Executable Statements .. | * .. Executable Statements .. | ||||
| * | * | ||||
| INFO = 0 | INFO = 0 | ||||
| LCNT = 0 | |||||
| RCNT = 0 | |||||
| EIGCNT = 0 | |||||
| * | * | ||||
| * Quick return if possible | * Quick return if possible | ||||
| * | * | ||||
| @@ -174,9 +177,6 @@ | |||||
| RETURN | RETURN | ||||
| END IF | END IF | ||||
| * | * | ||||
| LCNT = 0 | |||||
| RCNT = 0 | |||||
| EIGCNT = 0 | |||||
| MATT = LSAME( JOBT, 'T' ) | MATT = LSAME( JOBT, 'T' ) | ||||
+ 2
- 2
lapack-netlib/SRC/slarre.f
View File
| @@ -367,6 +367,8 @@ | |||||
| * | * | ||||
| INFO = 0 | INFO = 0 | ||||
| NSPLIT = 0 | |||||
| M = 0 | |||||
| * | * | ||||
| * Quick return if possible | * Quick return if possible | ||||
| * | * | ||||
| @@ -384,8 +386,6 @@ | |||||
| IRANGE = INDRNG | IRANGE = INDRNG | ||||
| END IF | END IF | ||||
| M = 0 | |||||
| * Get machine constants | * Get machine constants | ||||
| SAFMIN = SLAMCH( 'S' ) | SAFMIN = SLAMCH( 'S' ) | ||||
| EPS = SLAMCH( 'P' ) | EPS = SLAMCH( 'P' ) | ||||