Martin Kroeker
GitHub
5 years ago
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23
1 changed files with 4 additions and 4 deletions
Unified View
Diff Options
+ 4
- 4
lapack-netlib/TESTING/EIG/cchkhb2stg.f
View File
| @@ -680,8 +680,8 @@ | |||||
| * the one from above. Compare it with D1 computed | * the one from above. Compare it with D1 computed | ||||
| * using the DSBTRD. | * using the DSBTRD. | ||||
| * | * | ||||
| CALL DLASET( 'Full', N, 1, ZERO, ZERO, SD, 1 ) | |||||
| CALL DLASET( 'Full', N, 1, ZERO, ZERO, SE, 1 ) | |||||
| CALL SLASET( 'Full', N, 1, ZERO, ZERO, SD, 1 ) | |||||
| CALL SLASET( 'Full', N, 1, ZERO, ZERO, SE, 1 ) | |||||
| CALL CLACPY( ' ', K+1, N, A, LDA, U, LDU ) | CALL CLACPY( ' ', K+1, N, A, LDA, U, LDU ) | ||||
| LH = MAX(1, 4*N) | LH = MAX(1, 4*N) | ||||
| LW = LWORK - LH | LW = LWORK - LH | ||||
| @@ -753,8 +753,8 @@ | |||||
| * the one from above. Compare it with D1 computed | * the one from above. Compare it with D1 computed | ||||
| * using the DSBTRD. | * using the DSBTRD. | ||||
| * | * | ||||
| CALL DLASET( 'Full', N, 1, ZERO, ZERO, SD, 1 ) | |||||
| CALL DLASET( 'Full', N, 1, ZERO, ZERO, SE, 1 ) | |||||
| CALL SLASET( 'Full', N, 1, ZERO, ZERO, SD, 1 ) | |||||
| CALL SLASET( 'Full', N, 1, ZERO, ZERO, SE, 1 ) | |||||
| CALL CLACPY( ' ', K+1, N, A, LDA, U, LDU ) | CALL CLACPY( ' ', K+1, N, A, LDA, U, LDU ) | ||||
| LH = MAX(1, 4*N) | LH = MAX(1, 4*N) | ||||
| LW = LWORK - LH | LW = LWORK - LH | ||||