|
version 1.17, 2018/05/29 07:18:17
|
version 1.18, 2023/08/07 08:39:21
|
|
Line 173
|
Line 173
|
| *> \author Univ. of Colorado Denver |
*> \author Univ. of Colorado Denver |
| *> \author NAG Ltd. |
*> \author NAG Ltd. |
| * |
* |
| *> \date December 2016 |
|
| * |
|
| *> \ingroup complex16OTHERcomputational |
*> \ingroup complex16OTHERcomputational |
| * |
* |
| *> \par Further Details: |
*> \par Further Details: |
|
Line 215
|
Line 213
|
| SUBROUTINE ZGGQRF( N, M, P, A, LDA, TAUA, B, LDB, TAUB, WORK, |
SUBROUTINE ZGGQRF( N, M, P, A, LDA, TAUA, B, LDB, TAUB, WORK, |
| $ LWORK, INFO ) |
$ LWORK, INFO ) |
| * |
* |
| * -- LAPACK computational routine (version 3.7.0) -- |
* -- LAPACK computational routine -- |
| * -- LAPACK is a software package provided by Univ. of Tennessee, -- |
* -- LAPACK is a software package provided by Univ. of Tennessee, -- |
| * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- |
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- |
| * December 2016 |
|
| * |
* |
| * .. Scalar Arguments .. |
* .. Scalar Arguments .. |
| INTEGER INFO, LDA, LDB, LWORK, M, N, P |
INTEGER INFO, LDA, LDB, LWORK, M, N, P |
|
Line 279
|
Line 276
|
| * QR factorization of N-by-M matrix A: A = Q*R |
* QR factorization of N-by-M matrix A: A = Q*R |
| * |
* |
| CALL ZGEQRF( N, M, A, LDA, TAUA, WORK, LWORK, INFO ) |
CALL ZGEQRF( N, M, A, LDA, TAUA, WORK, LWORK, INFO ) |
| LOPT = WORK( 1 ) |
LOPT = INT( WORK( 1 ) ) |
| * |
* |
| * Update B := Q**H*B. |
* Update B := Q**H*B. |
| * |
* |
![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to zggqrf.f CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [local] / rpl / lapack / lapack