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:18:22 +02:00 committed by GitHub
parent db2b7cb9d7
commit 3705b3f6e2
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23
1 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
lapack-netlib/TESTING/LIN/zchktr.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 )
DOUBLE PRECISION RESULT( NTESTS ), SCALE3( 2 ) DOUBLE PRECISION RESULT( NTESTS ), RWORK2( 2*NMAX),
$ SCALE3( 2 )
* .. * ..
* .. External Functions .. * .. External Functions ..
LOGICAL LSAME LOGICAL LSAME
@ -544,8 +545,8 @@
CALL ZCOPY( N, X, 1, B( N+1 ), 1 ) CALL ZCOPY( N, X, 1, B( N+1 ), 1 )
CALL ZDSCAL( N, BIGNUM, B( N+1 ), 1 ) CALL ZDSCAL( N, BIGNUM, B( N+1 ), 1 )
CALL ZLATRS3( UPLO, TRANS, DIAG, 'N', N, 2, A, LDA, CALL ZLATRS3( UPLO, TRANS, DIAG, 'N', N, 2, A, LDA,
$ B, MAX(1, N), SCALE3, RWORK, WORK, NMAX, $ B, MAX(1, N), SCALE3, RWORK, RWORK2,
$ INFO ) $ 2*NMAX, INFO )
* *
* Check error code from ZLATRS3. * Check error code from ZLATRS3.
* *