version 1.2, 2017/06/17 11:06:54
|
version 1.3, 2018/05/29 06:55:24
|
Line 23
|
Line 23
|
*> |
*> |
*> SIDE = 'L' SIDE = 'R' |
*> SIDE = 'L' SIDE = 'R' |
*> TRANS = 'N': Q * C C * Q |
*> TRANS = 'N': Q * C C * Q |
*> TRANS = 'C': Q**C * C C * Q**C |
*> TRANS = 'C': Q**H * C C * Q**H |
*> where Q is a real orthogonal matrix defined as the product |
*> where Q is a real orthogonal matrix defined as the product |
*> of blocked elementary reflectors computed by tall skinny |
*> of blocked elementary reflectors computed by tall skinny |
*> QR factorization (ZLATSQR) |
*> QR factorization (ZLATSQR) |
Line 35
|
Line 35
|
*> \param[in] SIDE |
*> \param[in] SIDE |
*> \verbatim |
*> \verbatim |
*> SIDE is CHARACTER*1 |
*> SIDE is CHARACTER*1 |
*> = 'L': apply Q or Q**T from the Left; |
*> = 'L': apply Q or Q**H from the Left; |
*> = 'R': apply Q or Q**T from the Right. |
*> = 'R': apply Q or Q**H from the Right. |
*> \endverbatim |
*> \endverbatim |
*> |
*> |
*> \param[in] TRANS |
*> \param[in] TRANS |
*> \verbatim |
*> \verbatim |
*> TRANS is CHARACTER*1 |
*> TRANS is CHARACTER*1 |
*> = 'N': No transpose, apply Q; |
*> = 'N': No transpose, apply Q; |
*> = 'C': Conjugate Transpose, apply Q**C. |
*> = 'C': Conjugate Transpose, apply Q**H. |
*> \endverbatim |
*> \endverbatim |
*> |
*> |
*> \param[in] M |
*> \param[in] M |
Line 81
|
Line 81
|
*> N >= NB >= 1. |
*> N >= NB >= 1. |
*> \endverbatim |
*> \endverbatim |
*> |
*> |
*> \param[in,out] A |
*> \param[in] A |
*> \verbatim |
*> \verbatim |
*> A is COMPLEX*16 array, dimension (LDA,K) |
*> A is COMPLEX*16 array, dimension (LDA,K) |
*> The i-th column must contain the vector which defines the |
*> The i-th column must contain the vector which defines the |
Line 117
|
Line 117
|
*> \verbatim |
*> \verbatim |
*> C is COMPLEX*16 array, dimension (LDC,N) |
*> C is COMPLEX*16 array, dimension (LDC,N) |
*> On entry, the M-by-N matrix C. |
*> On entry, the M-by-N matrix C. |
*> On exit, C is overwritten by Q*C or Q**T*C or C*Q**T or C*Q. |
*> On exit, C is overwritten by Q*C or Q**H*C or C*Q**H or C*Q. |
*> \endverbatim |
*> \endverbatim |
*> |
*> |
*> \param[in] LDC |
*> \param[in] LDC |
Line 195
|
Line 195
|
SUBROUTINE ZLAMTSQR( SIDE, TRANS, M, N, K, MB, NB, A, LDA, T, |
SUBROUTINE ZLAMTSQR( SIDE, TRANS, M, N, K, MB, NB, A, LDA, T, |
$ LDT, C, LDC, WORK, LWORK, INFO ) |
$ LDT, C, LDC, WORK, LWORK, INFO ) |
* |
* |
* -- LAPACK computational routine (version 3.7.0) -- |
* -- LAPACK computational routine (version 3.7.1) -- |
* -- 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 |
* June 2017 |
* |
* |
* .. Scalar Arguments .. |
* .. Scalar Arguments .. |
CHARACTER SIDE, TRANS |
CHARACTER SIDE, TRANS |