Martin Kroeker
GitHub
3 years ago
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23
1 changed files with 1 additions and 5 deletions
Unified View
Diff Options
+ 1
- 5
lapack-netlib/SRC/slarrd.f
View File
| @@ -381,6 +381,7 @@ | |||||
| * .. Executable Statements .. | * .. Executable Statements .. | ||||
| * | * | ||||
| INFO = 0 | INFO = 0 | ||||
| M = 0 | |||||
| * | * | ||||
| * Quick return if possible | * Quick return if possible | ||||
| * | * | ||||
| @@ -424,14 +425,9 @@ | |||||
| END IF | END IF | ||||
| * Initialize error flags | * Initialize error flags | ||||
| INFO = 0 | |||||
| NCNVRG = .FALSE. | NCNVRG = .FALSE. | ||||
| TOOFEW = .FALSE. | TOOFEW = .FALSE. | ||||
| * Quick return if possible | |||||
| M = 0 | |||||
| IF( N.EQ.0 ) RETURN | |||||
| * Simplification: | * Simplification: | ||||
| IF( IRANGE.EQ.INDRNG .AND. IL.EQ.1 .AND. IU.EQ.N ) IRANGE = 1 | IF( IRANGE.EQ.INDRNG .AND. IL.EQ.1 .AND. IU.EQ.N ) IRANGE = 1 | ||||