diff options
Diffstat (limited to 'SRC/zggrqf.f')
| -rw-r--r-- | SRC/zggrqf.f | 71 |
1 files changed, 47 insertions, 24 deletions
diff --git a/SRC/zggrqf.f b/SRC/zggrqf.f index 5a2b8ca3..3c6fd3a7 100644 --- a/SRC/zggrqf.f +++ b/SRC/zggrqf.f @@ -103,45 +103,46 @@ *> The leading dimension of the array A. LDA >= max(1,M). *> \endverbatim *> -* -* Authors -* ======= -* -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. -* -*> \date November 2011 -* -*> \ingroup complex16OTHERcomputational -* -* -* Further Details -* =============== -*>\details \b Further \b Details +*> \param[out] TAUA *> \verbatim -* represent the unitary matrix Q (see Further Details). +*> TAUA is COMPLEX*16 array, dimension (min(M,N)) +*> The scalar factors of the elementary reflectors which +*> represent the unitary matrix Q (see Further Details). +*> \endverbatim *> -*> B (input/output) COMPLEX*16 array, dimension (LDB,N) +*> \param[in,out] B +*> \verbatim +*> B is COMPLEX*16 array, dimension (LDB,N) *> On entry, the P-by-N matrix B. *> On exit, the elements on and above the diagonal of the array *> contain the min(P,N)-by-N upper trapezoidal matrix T (T is *> upper triangular if P >= N); the elements below the diagonal, *> with the array TAUB, represent the unitary matrix Z as a *> product of elementary reflectors (see Further Details). +*> \endverbatim *> -*> LDB (input) INTEGER +*> \param[in] LDB +*> \verbatim +*> LDB is INTEGER *> The leading dimension of the array B. LDB >= max(1,P). +*> \endverbatim *> -*> TAUB (output) COMPLEX*16 array, dimension (min(P,N)) +*> \param[out] TAUB +*> \verbatim +*> TAUB is COMPLEX*16 array, dimension (min(P,N)) *> The scalar factors of the elementary reflectors which *> represent the unitary matrix Z (see Further Details). +*> \endverbatim *> -*> WORK (workspace/output) COMPLEX*16 array, dimension (MAX(1,LWORK)) +*> \param[out] WORK +*> \verbatim +*> WORK is COMPLEX*16 array, dimension (MAX(1,LWORK)) *> On exit, if INFO = 0, WORK(1) returns the optimal LWORK. +*> \endverbatim *> -*> LWORK (input) INTEGER +*> \param[in] LWORK +*> \verbatim +*> LWORK is INTEGER *> The dimension of the array WORK. LWORK >= max(1,N,M,P). *> For optimum performance LWORK >= max(N,M,P)*max(NB1,NB2,NB3), *> where NB1 is the optimal blocksize for the RQ factorization @@ -153,11 +154,33 @@ *> only calculates the optimal size of the WORK array, returns *> this value as the first entry of the WORK array, and no error *> message related to LWORK is issued by XERBLA. +*> \endverbatim *> -*> INFO (output) INTEGER +*> \param[out] INFO +*> \verbatim +*> INFO is INTEGER *> = 0: successful exit *> < 0: if INFO=-i, the i-th argument had an illegal value. +*> \endverbatim *> +* +* Authors +* ======= +* +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. +* +*> \date November 2011 +* +*> \ingroup complex16OTHERcomputational +* +* +* Further Details +* =============== +*>\details \b Further \b Details +*> \verbatim *> *> The matrix Q is represented as a product of elementary reflectors *> |