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 17:31:25 +02:00 committed by GitHub
parent 267a3a4c85
commit 87ac38827d
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
lapack-netlib/SRC/zgelqt3.f
View File

@ -174,7 +174,8 @@
*
* Compute Householder transform when M=1
*
CALL ZLARFG( N, A, A( 1, MIN( 2, N ) ), LDA, T )
CALL ZLARFG( N, A( 1, 1 ), A( 1, MIN( 2, N ) ), LDA,
& T( 1, 1 ) )
T(1,1)=CONJG(T(1,1))
*
ELSE