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