Define type conversions explicitly (Reference-LAPACK PR703)

This commit is contained in:
Martin Kroeker 2022-11-19 19:15:09 +01:00 committed by GitHub
parent 4ab4d6ff82
commit 15967809ad
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23
1 changed files with 1 additions and 1 deletions

View File

@ -275,7 +275,7 @@
* RQ factorization of M-by-N matrix A: A = R*Q
*
CALL CGERQF( M, N, A, LDA, TAUA, WORK, LWORK, INFO )
LOPT = REAL( WORK( 1 ) )
LOPT = INT( WORK( 1 ) )
*
* Update B := B*Q**H
*