Fix actual arguments (Reference-LAPACK PR 885)
This commit is contained in:
parent
3705b3f6e2
commit
e8271fab63
|
@ -545,7 +545,7 @@
|
|||
CALL CCOPY( N, X, 1, B( N+1 ), 1 )
|
||||
CALL CSSCAL( N, BIGNUM, B( N+1 ), 1 )
|
||||
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 )
|
||||
*
|
||||
* Check error code from CLATRS3.
|
||||
|
|
Loading…
Reference in New Issue