Fix actual arguments (Reference-LAPACK PR 885)
This commit is contained in:
parent
65773be536
commit
267a3a4c85
|
@ -158,7 +158,8 @@
|
||||||
*
|
*
|
||||||
* Compute Householder transform when M=1
|
* Compute Householder transform when M=1
|
||||||
*
|
*
|
||||||
CALL SLARFG( N, A, A( 1, MIN( 2, N ) ), LDA, T )
|
CALL SLARFG( N, A( 1, 1 ), A( 1, MIN( 2, N ) ), LDA,
|
||||||
|
& T( 1, 1 ) )
|
||||||
*
|
*
|
||||||
ELSE
|
ELSE
|
||||||
*
|
*
|
||||||
|
|
Loading…
Reference in New Issue