Merge pull request #3828 from martin-frbg/lapack703-3
Define type conversions explicitly (Reference-LAPACK PR703)
This commit is contained in:
commit
3a38dad18f
|
@ -275,7 +275,7 @@
|
||||||
* RQ factorization of M-by-N matrix A: A = R*Q
|
* RQ factorization of M-by-N matrix A: A = R*Q
|
||||||
*
|
*
|
||||||
CALL CGERQF( M, N, A, LDA, TAUA, WORK, LWORK, INFO )
|
CALL CGERQF( M, N, A, LDA, TAUA, WORK, LWORK, INFO )
|
||||||
LOPT = REAL( WORK( 1 ) )
|
LOPT = INT( WORK( 1 ) )
|
||||||
*
|
*
|
||||||
* Update B := B*Q**H
|
* Update B := B*Q**H
|
||||||
*
|
*
|
||||||
|
|
Loading…
Reference in New Issue