diff options
| author | eugene.chereshnev <eugenechereshnev@gmail.com> | 2017-03-16 10:38:35 -0700 |
|---|---|---|
| committer | eugene.chereshnev <eugenechereshnev@gmail.com> | 2017-03-17 12:38:09 -0700 |
| commit | 6bfa9ba31cef79618440b753f7e5ffe9ce983c7b (patch) | |
| tree | 4df47921e9799d26a4f129ca17572c59bece3a53 | |
| parent | f1c0b1f8a234544660c61712d4004688706684f1 (diff) | |
| download | lapack-6bfa9ba31cef79618440b753f7e5ffe9ce983c7b.tar.gz lapack-6bfa9ba31cef79618440b753f7e5ffe9ce983c7b.tar.bz2 lapack-6bfa9ba31cef79618440b753f7e5ffe9ce983c7b.zip | |
*gemlqt.f: incorrect dimension of V
| -rw-r--r-- | SRC/cgemlqt.f | 8 | ||||
| -rw-r--r-- | SRC/dgemlqt.f | 8 | ||||
| -rw-r--r-- | SRC/sgemlqt.f | 8 | ||||
| -rw-r--r-- | SRC/zgemlqt.f | 8 |
4 files changed, 16 insertions, 16 deletions
diff --git a/SRC/cgemlqt.f b/SRC/cgemlqt.f index 3f465d71..a30fbf71 100644 --- a/SRC/cgemlqt.f +++ b/SRC/cgemlqt.f @@ -82,7 +82,9 @@ *> *> \param[in] V *> \verbatim -*> V is COMPLEX array, dimension (LDV,K) +*> V is COMPLEX array, dimension +*> (LDV,M) if SIDE = 'L', +*> (LDV,N) if SIDE = 'R' *> The i-th row must contain the vector which defines the *> elementary reflector H(i), for i = 1,2,...,k, as returned by *> DGELQT in the first K rows of its array argument A. @@ -91,9 +93,7 @@ *> \param[in] LDV *> \verbatim *> LDV is INTEGER -*> The leading dimension of the array V. -*> If SIDE = 'L', LDV >= max(1,M); -*> if SIDE = 'R', LDV >= max(1,N). +*> The leading dimension of the array V. LDV >= max(1,K). *> \endverbatim *> *> \param[in] T diff --git a/SRC/dgemlqt.f b/SRC/dgemlqt.f index 92aab9be..8963b26f 100644 --- a/SRC/dgemlqt.f +++ b/SRC/dgemlqt.f @@ -99,7 +99,9 @@ *> *> \param[in] V *> \verbatim -*> V is DOUBLE PRECISION array, dimension (LDV,K) +*> V is DOUBLE PRECISION array, dimension +*> (LDV,M) if SIDE = 'L', +*> (LDV,N) if SIDE = 'R' *> The i-th row must contain the vector which defines the *> elementary reflector H(i), for i = 1,2,...,k, as returned by *> DGELQT in the first K rows of its array argument A. @@ -108,9 +110,7 @@ *> \param[in] LDV *> \verbatim *> LDV is INTEGER -*> The leading dimension of the array V. -*> If SIDE = 'L', LDV >= max(1,M); -*> if SIDE = 'R', LDV >= max(1,N). +*> The leading dimension of the array V. LDV >= max(1,K). *> \endverbatim *> *> \param[in] T diff --git a/SRC/sgemlqt.f b/SRC/sgemlqt.f index d8f2f437..47e1c67c 100644 --- a/SRC/sgemlqt.f +++ b/SRC/sgemlqt.f @@ -82,7 +82,9 @@ *> *> \param[in] V *> \verbatim -*> V is REAL array, dimension (LDV,K) +*> V is REAL array, dimension +*> (LDV,M) if SIDE = 'L', +*> (LDV,N) if SIDE = 'R' *> The i-th row must contain the vector which defines the *> elementary reflector H(i), for i = 1,2,...,k, as returned by *> DGELQT in the first K rows of its array argument A. @@ -91,9 +93,7 @@ *> \param[in] LDV *> \verbatim *> LDV is INTEGER -*> The leading dimension of the array V. -*> If SIDE = 'L', LDV >= max(1,M); -*> if SIDE = 'R', LDV >= max(1,N). +*> The leading dimension of the array V. LDV >= max(1,K). *> \endverbatim *> *> \param[in] T diff --git a/SRC/zgemlqt.f b/SRC/zgemlqt.f index 3d9cf221..9e6cc3c8 100644 --- a/SRC/zgemlqt.f +++ b/SRC/zgemlqt.f @@ -99,7 +99,9 @@ *> *> \param[in] V *> \verbatim -*> V is COMPLEX*16 array, dimension (LDV,K) +*> V is COMPLEX*16 array, dimension +*> (LDV,M) if SIDE = 'L', +*> (LDV,N) if SIDE = 'R' *> The i-th row must contain the vector which defines the *> elementary reflector H(i), for i = 1,2,...,k, as returned by *> DGELQT in the first K rows of its array argument A. @@ -108,9 +110,7 @@ *> \param[in] LDV *> \verbatim *> LDV is INTEGER -*> The leading dimension of the array V. -*> If SIDE = 'L', LDV >= max(1,M); -*> if SIDE = 'R', LDV >= max(1,N). +*> The leading dimension of the array V. LDV >= max(1,K). *> \endverbatim *> *> \param[in] T |