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 4 deletions
Unified View
Diff Options
+ 5
- 4
lapack-netlib/TESTING/LIN/cchktr.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 ) | ||||
| REAL RESULT( NTESTS ), SCALE3( 2 ) | |||||
| REAL RESULT( NTESTS ), RWORK2( 2*NMAX ), | |||||
| $ SCALE3( 2 ) | |||||
| * .. | * .. | ||||
| * .. External Functions .. | * .. External Functions .. | ||||
| LOGICAL LSAME | LOGICAL LSAME | ||||
| @@ -542,10 +543,10 @@ | |||||
| SRNAMT = 'CLATRS3' | SRNAMT = 'CLATRS3' | ||||
| CALL CCOPY( N, X, 1, B, 1 ) | CALL CCOPY( N, X, 1, B, 1 ) | ||||
| CALL CCOPY( N, X, 1, B( N+1 ), 1 ) | CALL CCOPY( N, X, 1, B( N+1 ), 1 ) | ||||
| CALL CSCAL( N, BIGNUM, B( N+1 ), 1 ) | |||||
| CALL CSSCAL( N, BIGNUM, B( N+1 ), 1 ) | |||||
| CALL CLATRS3( UPLO, TRANS, DIAG, 'N', N, 2, A, LDA, | CALL CLATRS3( UPLO, TRANS, DIAG, 'N', N, 2, A, LDA, | ||||
| $ B, MAX(1, N), SCALE3, RWORK, WORK, NMAX, | |||||
| $ INFO ) | |||||
| $ B, MAX(1, N), SCALE3, RWORK, WORK, RWORK2, | |||||
| $ 2*NMAX, INFO ) | |||||
| * | * | ||||
| * Check error code from CLATRS3. | * Check error code from CLATRS3. | ||||
| * | * | ||||