Martin Kroeker
GitHub
5 years ago
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23
2 changed files with 6 additions and 2 deletions
Unified View
Diff Options
+ 3
- 1
lapack-netlib/TESTING/LIN/derrtsqr.f
View File
| @@ -77,7 +77,7 @@ | |||||
| * .. | * .. | ||||
| * .. Local Arrays .. | * .. Local Arrays .. | ||||
| DOUBLE PRECISION A( NMAX, NMAX ), T( NMAX, NMAX ), W( NMAX ), | DOUBLE PRECISION A( NMAX, NMAX ), T( NMAX, NMAX ), W( NMAX ), | ||||
| $ C( NMAX, NMAX ), TAU(NMAX) | |||||
| $ C( NMAX, NMAX ), TAU(NMAX*2) | |||||
| * .. | * .. | ||||
| * .. External Subroutines .. | * .. External Subroutines .. | ||||
| EXTERNAL ALAESM, CHKXER, DGEQR, | EXTERNAL ALAESM, CHKXER, DGEQR, | ||||
| @@ -137,6 +137,8 @@ | |||||
| * | * | ||||
| TAU(1)=1 | TAU(1)=1 | ||||
| TAU(2)=1 | TAU(2)=1 | ||||
| TAU(3)=1 | |||||
| TAU(4)=1 | |||||
| SRNAMT = 'DGEMQR' | SRNAMT = 'DGEMQR' | ||||
| NB=1 | NB=1 | ||||
| INFOT = 1 | INFOT = 1 | ||||
+ 3
- 1
lapack-netlib/TESTING/LIN/serrtsqr.f
View File
| @@ -77,7 +77,7 @@ | |||||
| * .. | * .. | ||||
| * .. Local Arrays .. | * .. Local Arrays .. | ||||
| REAL A( NMAX, NMAX ), T( NMAX, NMAX ), W( NMAX ), | REAL A( NMAX, NMAX ), T( NMAX, NMAX ), W( NMAX ), | ||||
| $ C( NMAX, NMAX ), TAU(NMAX) | |||||
| $ C( NMAX, NMAX ), TAU(NMAX*2) | |||||
| * .. | * .. | ||||
| * .. External Subroutines .. | * .. External Subroutines .. | ||||
| EXTERNAL ALAESM, CHKXER, SGEQR, | EXTERNAL ALAESM, CHKXER, SGEQR, | ||||
| @@ -137,6 +137,8 @@ | |||||
| * | * | ||||
| TAU(1)=1 | TAU(1)=1 | ||||
| TAU(2)=1 | TAU(2)=1 | ||||
| TAU(3)=1 | |||||
| TAU(4)=1 | |||||
| SRNAMT = 'SGEMQR' | SRNAMT = 'SGEMQR' | ||||
| NB=1 | NB=1 | ||||
| INFOT = 1 | INFOT = 1 | ||||