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

2
lapack-netlib/TESTING/LIN/cchktr.f
View File

@ -545,7 +545,7 @@
CALL CCOPY( N, X, 1, B( N+1 ), 1 ) CALL CCOPY( N, X, 1, B( N+1 ), 1 )
CALL CSSCAL( N, BIGNUM, B( N+1 ), 1 ) CALL CSSCAL( N, BIGNUM, B( N+1 ), 1 )
CALL CLATRS3( UPLO, TRANS, DIAG, 'N', N, 2, A, LDA, CALL CLATRS3( UPLO, TRANS, DIAG, 'N', N, 2, A, LDA,
$ B, MAX(1, N), SCALE3, RWORK, WORK, RWORK2, $ B, MAX(1, N), SCALE3, RWORK, RWORK2,
$ 2*NMAX, INFO ) $ 2*NMAX, INFO )
* *
* Check error code from CLATRS3. * Check error code from CLATRS3.