Martin Kroeker
GitHub
2 years ago
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23
1 changed files with 4 additions and 3 deletions
Unified View
Diff Options
+ 4
- 3
lapack-netlib/TESTING/LIN/zchktr.f
View File
| @@ -201,7 +201,8 @@ | |||||
| * .. Local Arrays .. | * .. Local Arrays .. | ||||
| CHARACTER TRANSS( NTRAN ), UPLOS( 2 ) | CHARACTER TRANSS( NTRAN ), UPLOS( 2 ) | ||||
| INTEGER ISEED( 4 ), ISEEDY( 4 ) | INTEGER ISEED( 4 ), ISEEDY( 4 ) | ||||
| DOUBLE PRECISION RESULT( NTESTS ), SCALE3( 2 ) | |||||
| DOUBLE PRECISION RESULT( NTESTS ), RWORK2( 2*NMAX), | |||||
| $ SCALE3( 2 ) | |||||
| * .. | * .. | ||||
| * .. External Functions .. | * .. External Functions .. | ||||
| LOGICAL LSAME | LOGICAL LSAME | ||||
| @@ -544,8 +545,8 @@ | |||||
| CALL ZCOPY( N, X, 1, B( N+1 ), 1 ) | CALL ZCOPY( N, X, 1, B( N+1 ), 1 ) | ||||
| CALL ZDSCAL( N, BIGNUM, B( N+1 ), 1 ) | CALL ZDSCAL( N, BIGNUM, B( N+1 ), 1 ) | ||||
| CALL ZLATRS3( UPLO, TRANS, DIAG, 'N', N, 2, A, LDA, | CALL ZLATRS3( UPLO, TRANS, DIAG, 'N', N, 2, A, LDA, | ||||
| $ B, MAX(1, N), SCALE3, RWORK, WORK, NMAX, | |||||
| $ INFO ) | |||||
| $ B, MAX(1, N), SCALE3, RWORK, RWORK2, | |||||
| $ 2*NMAX, INFO ) | |||||
| * | * | ||||
| * Check error code from ZLATRS3. | * Check error code from ZLATRS3. | ||||
| * | * | ||||