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

Fix actual arguments (Reference-LAPACK PR 885)

This commit is contained in:
Martin Kroeker 2023-07-22 18:10:18 +02:00 committed by GitHub
parent 211ef72890
commit e9bfbdffaa
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lapack-netlib/TESTING/EIG/serrst.f
View File

@ -161,13 +161,13 @@
* *
SRNAMT = 'SSYTD2' SRNAMT = 'SSYTD2'
INFOT = 1 INFOT = 1
CALL SSYTD2( '/', 0, A, 1, D, E, TAU, W, 1, INFO ) CALL SSYTD2( '/', 0, A, 1, D, E, TAU, INFO )
CALL CHKXER( 'SSYTD2', INFOT, NOUT, LERR, OK ) CALL CHKXER( 'SSYTD2', INFOT, NOUT, LERR, OK )
INFOT = 2 INFOT = 2
CALL SSYTD2( 'U', -1, A, 1, D, E, TAU, W, 1, INFO ) CALL SSYTD2( 'U', -1, A, 1, D, E, TAU, INFO )
CALL CHKXER( 'SSYTD2', INFOT, NOUT, LERR, OK ) CALL CHKXER( 'SSYTD2', INFOT, NOUT, LERR, OK )
INFOT = 4 INFOT = 4
CALL SSYTD2( 'U', 2, A, 1, D, E, TAU, W, 1, INFO ) CALL SSYTD2( 'U', 2, A, 1, D, E, TAU, INFO )
CALL CHKXER( 'SSYTD2', INFOT, NOUT, LERR, OK ) CALL CHKXER( 'SSYTD2', INFOT, NOUT, LERR, OK )
NT = NT + 3 NT = NT + 3
* *