Define type conversions explicitly (Reference-LAPACK PR703)
This commit is contained in:
parent
4ab4d6ff82
commit
15967809ad
|
@ -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
|
||||
*
|
||||
|
|
Loading…
Reference in New Issue