diff options
| author | eugene.chereshnev <eugenechereshnev@gmail.com> | 2017-03-13 19:17:03 -0700 |
|---|---|---|
| committer | eugene.chereshnev <eugenechereshnev@gmail.com> | 2017-03-17 12:37:50 -0700 |
| commit | c81566390c16e7b185bed274064b11170e5aadd3 (patch) | |
| tree | bd97cae9138be62ef619e9677874e4e0e9f87a88 /SRC/clamswlq.f | |
| parent | 06f63681c5c9ada2371e43c48d2fde6265a590e0 (diff) | |
| download | lapack-c81566390c16e7b185bed274064b11170e5aadd3.tar.gz lapack-c81566390c16e7b185bed274064b11170e5aadd3.tar.bz2 lapack-c81566390c16e7b185bed274064b11170e5aadd3.zip | |
*gemlqt.f, *lamswlq.f, *lamtsqr.f: fix mistakes in comments
Diffstat (limited to 'SRC/clamswlq.f')
| -rw-r--r-- | SRC/clamswlq.f | 10 |
1 files changed, 6 insertions, 4 deletions
diff --git a/SRC/clamswlq.f b/SRC/clamswlq.f index fd19f0af..8286ac35 100644 --- a/SRC/clamswlq.f +++ b/SRC/clamswlq.f @@ -49,7 +49,7 @@ *> \param[in] M *> \verbatim *> M is INTEGER -*> The number of rows of the matrix A. M >=0. +*> The number of rows of the matrix C. M >=0. *> \endverbatim *> *> \param[in] N @@ -88,12 +88,14 @@ *> *> \endverbatim *> -*> \param[in,out] A +*> \param[in] A *> \verbatim -*> A is COMPLEX array, dimension (LDA,K) +*> A is COMPLEX array, dimension +*> (LDA,M) if SIDE = 'L', +*> (LDA,N) if SIDE = 'R' *> The i-th row must contain the vector which defines the blocked *> elementary reflector H(i), for i = 1,2,...,k, as returned by -*> DLASWLQ in the first k rows of its array argument A. +*> CLASWLQ in the first k rows of its array argument A. *> \endverbatim *> *> \param[in] LDA |