floraachy
/
OpenBLAS
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Fix incorrect argument to SLASET 

Reference-LAPACK issue 425 (and 318)
This commit is contained in:
Martin Kroeker 2020-08-14 00:40:24 +02:00 committed by GitHub
parent c62aad62e5
commit d64f1ef26b
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lapack-netlib/TESTING/EIG/schksb2stg.f
View File

@ -670,8 +670,8 @@
* the one from above. Compare it with D1 computed * the one from above. Compare it with D1 computed
* using the SSBTRD. * using the SSBTRD.
* *
CALL SLASET( 'Full', N, 1, ZERO, ZERO, SD, 1 ) CALL SLASET( 'Full', N, 1, ZERO, ZERO, SD, N )
CALL SLASET( 'Full', N, 1, ZERO, ZERO, SE, 1 ) CALL SLASET( 'Full', N, 1, ZERO, ZERO, SE, N )
CALL SLACPY( ' ', K+1, N, A, LDA, U, LDU ) CALL SLACPY( ' ', K+1, N, A, LDA, U, LDU )
LH = MAX(1, 4*N) LH = MAX(1, 4*N)
LW = LWORK - LH LW = LWORK - LH