version 1.4, 2020/05/21 21:46:04
|
version 1.5, 2023/08/07 08:39:17
|
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; |
*> = 'T': Transpose, apply Q**T. |
*> = 'C': Conjugate transpose, apply Q**H. |
*> \endverbatim |
*> \endverbatim |
*> |
*> |
*> \param[in] M |
*> \param[in] M |
Line 98
|
Line 98
|
*> \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 167
|
Line 167
|
SUBROUTINE ZGEMLQ( SIDE, TRANS, M, N, K, A, LDA, T, TSIZE, |
SUBROUTINE ZGEMLQ( SIDE, TRANS, M, N, K, A, LDA, T, TSIZE, |
$ C, LDC, WORK, LWORK, INFO ) |
$ C, LDC, WORK, 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 .. |
CHARACTER SIDE, TRANS |
CHARACTER SIDE, TRANS |