Martin Kroeker
GitHub
2 years ago
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23
1 changed files with 5 additions and 2 deletions
Unified View
Diff Options
+ 5
- 2
lapack-netlib/SRC/dlatrs.f
View File
| @@ -261,6 +261,9 @@ | |||||
| DOUBLE PRECISION BIGNUM, GROW, REC, SMLNUM, SUMJ, TJJ, TJJS, | DOUBLE PRECISION BIGNUM, GROW, REC, SMLNUM, SUMJ, TJJ, TJJS, | ||||
| $ TMAX, TSCAL, USCAL, XBND, XJ, XMAX | $ TMAX, TSCAL, USCAL, XBND, XJ, XMAX | ||||
| * .. | * .. | ||||
| * .. Local Arrays .. | |||||
| DOUBLE PRECISION WORK(1) | |||||
| * .. | |||||
| * .. External Functions .. | * .. External Functions .. | ||||
| LOGICAL LSAME | LOGICAL LSAME | ||||
| INTEGER IDAMAX | INTEGER IDAMAX | ||||
| @@ -362,7 +365,7 @@ | |||||
| * A is upper triangular. | * A is upper triangular. | ||||
| * | * | ||||
| DO J = 2, N | DO J = 2, N | ||||
| TMAX = MAX( DLANGE( 'M', J-1, 1, A( 1, J ), 1, SUMJ ), | |||||
| TMAX = MAX( DLANGE( 'M', J-1, 1, A( 1, J ), 1, WORK ), | |||||
| $ TMAX ) | $ TMAX ) | ||||
| END DO | END DO | ||||
| ELSE | ELSE | ||||
| @@ -371,7 +374,7 @@ | |||||
| * | * | ||||
| DO J = 1, N - 1 | DO J = 1, N - 1 | ||||
| TMAX = MAX( DLANGE( 'M', N-J, 1, A( J+1, J ), 1, | TMAX = MAX( DLANGE( 'M', N-J, 1, A( J+1, J ), 1, | ||||
| $ SUMJ ), TMAX ) | |||||
| $ WORK ), TMAX ) | |||||
| END DO | END DO | ||||
| END IF | END IF | ||||
| * | * | ||||