Fix actual arguments (Reference-LAPACK PR 885)

This commit is contained in:
Martin Kroeker 2023-07-22 17:22:56 +02:00 committed by GitHub
parent e254c935fa
commit 65773be536
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23
1 changed files with 2 additions and 1 deletions

View File

@ -173,7 +173,8 @@
*
* 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
*