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

Correct dimension argument to xLASET 

from Reference-LAPACK PR 438
This commit is contained in:
Martin Kroeker 2020-09-07 22:03:46 +02:00 committed by GitHub
parent c8f029a518
commit 7d9c77f421
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23
5 changed files with 20 additions and 20 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
lapack-netlib/TESTING/EIG/cchkst2stg.f
View File

@ -1014,8 +1014,8 @@
* the one from above. Compare it with D1 computed
* using the 1-stage.
*
CALL DLASET( 'Full', N, 1, ZERO, ZERO, SD, 1 )
CALL DLASET( 'Full', N, 1, ZERO, ZERO, SE, 1 )
CALL DLASET( 'Full', N, 1, ZERO, ZERO, SD, N )
CALL DLASET( 'Full', N, 1, ZERO, ZERO, SE, N )
CALL CLACPY( 'U', N, N, A, LDA, V, LDU )
LH = MAX(1, 4*N)
LW = LWORK - LH
@ -1048,8 +1048,8 @@
* the one from above. Compare it with D1 computed
* using the 1-stage.
*
CALL DLASET( 'Full', N, 1, ZERO, ZERO, SD, 1 )
CALL DLASET( 'Full', N, 1, ZERO, ZERO, SE, 1 )
CALL DLASET( 'Full', N, 1, ZERO, ZERO, SD, N )
CALL DLASET( 'Full', N, 1, ZERO, ZERO, SE, N )
CALL CLACPY( 'L', N, N, A, LDA, V, LDU )
CALL CHETRD_2STAGE( 'N', "L", N, V, LDU, SD, SE, TAU,
$ WORK, LH, WORK( LH+1 ), LW, IINFO )

8
lapack-netlib/TESTING/EIG/dchksb2stg.f
View File

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

8
lapack-netlib/TESTING/EIG/dchkst2stg.f
View File

@ -999,8 +999,8 @@
* the one from above. Compare it with D1 computed
* using the 1-stage.
*
CALL DLASET( 'Full', N, 1, ZERO, ZERO, SD, 1 )
CALL DLASET( 'Full', N, 1, ZERO, ZERO, SE, 1 )
CALL DLASET( 'Full', N, 1, ZERO, ZERO, SD, N )
CALL DLASET( 'Full', N, 1, ZERO, ZERO, SE, N )
CALL DLACPY( "U", N, N, A, LDA, V, LDU )
LH = MAX(1, 4*N)
LW = LWORK - LH
@ -1032,8 +1032,8 @@
* the one from above. Compare it with D1 computed
* using the 1-stage.
*
CALL DLASET( 'Full', N, 1, ZERO, ZERO, SD, 1 )
CALL DLASET( 'Full', N, 1, ZERO, ZERO, SE, 1 )
CALL DLASET( 'Full', N, 1, ZERO, ZERO, SD, N )
CALL DLASET( 'Full', N, 1, ZERO, ZERO, SE, N )
CALL DLACPY( "L", N, N, A, LDA, V, LDU )
CALL DSYTRD_2STAGE( 'N', "L", N, V, LDU, SD, SE, TAU,
$ WORK, LH, WORK( LH+1 ), LW, IINFO )

8
lapack-netlib/TESTING/EIG/zchkhb2stg.f
View File

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

8
lapack-netlib/TESTING/EIG/zchkst2stg.f
View File

@ -1014,8 +1014,8 @@
* the one from above. Compare it with D1 computed
* using the 1-stage.
*
CALL DLASET( 'Full', N, 1, ZERO, ZERO, SD, 1 )
CALL DLASET( 'Full', N, 1, ZERO, ZERO, SE, 1 )
CALL DLASET( 'Full', N, 1, ZERO, ZERO, SD, N )
CALL DLASET( 'Full', N, 1, ZERO, ZERO, SE, N )
CALL ZLACPY( 'U', N, N, A, LDA, V, LDU )
LH = MAX(1, 4*N)
LW = LWORK - LH
@ -1048,8 +1048,8 @@
* the one from above. Compare it with D1 computed
* using the 1-stage.
*
CALL DLASET( 'Full', N, 1, ZERO, ZERO, SD, 1 )
CALL DLASET( 'Full', N, 1, ZERO, ZERO, SE, 1 )
CALL DLASET( 'Full', N, 1, ZERO, ZERO, SD, N )
CALL DLASET( 'Full', N, 1, ZERO, ZERO, SE, N )
CALL ZLACPY( 'L', N, N, A, LDA, V, LDU )
CALL ZHETRD_2STAGE( 'N', "L", N, V, LDU, SD, SE, TAU,
$ WORK, LH, WORK( LH+1 ), LW, IINFO )