diff options
| author | langou <julien.langou@ucdenver.edu> | 2017-06-03 22:39:47 +0000 |
|---|---|---|
| committer | GitHub <noreply@github.com> | 2017-06-03 22:39:47 +0000 |
| commit | 59ec9174312925d68ef13652d716067ddc003757 (patch) | |
| tree | 5a43770463818f7fe5cff6e6109e4dce0bc85462 | |
| parent | 0b0dcee3f8c2d2cea5aba274f56018bbdc979e72 (diff) | |
| parent | 8a034babb0033c08de05662a6ed282a886dac2fc (diff) | |
| download | lapack-59ec9174312925d68ef13652d716067ddc003757.tar.gz lapack-59ec9174312925d68ef13652d716067ddc003757.tar.bz2 lapack-59ec9174312925d68ef13652d716067ddc003757.zip | |
Merge pull request #161 from thielema/array-dimensions
fix dimension specification in some comments
| -rw-r--r-- | SRC/clalsa.f | 3 | ||||
| -rw-r--r-- | SRC/dlaed3.f | 2 | ||||
| -rw-r--r-- | SRC/dlalsa.f | 6 | ||||
| -rw-r--r-- | SRC/dlasda.f | 3 | ||||
| -rw-r--r-- | SRC/slaed3.f | 2 | ||||
| -rw-r--r-- | SRC/slalsa.f | 6 | ||||
| -rw-r--r-- | SRC/zcgesv.f | 2 | ||||
| -rw-r--r-- | SRC/zcposv.f | 2 | ||||
| -rw-r--r-- | SRC/zlalsa.f | 3 |
9 files changed, 11 insertions, 18 deletions
diff --git a/SRC/clalsa.f b/SRC/clalsa.f index 8a817924..a1b74c01 100644 --- a/SRC/clalsa.f +++ b/SRC/clalsa.f @@ -232,8 +232,7 @@ *> *> \param[out] IWORK *> \verbatim -*> IWORK is INTEGER array. -*> The dimension must be at least 3 * N +*> IWORK is INTEGER array, dimension (3*N) *> \endverbatim *> *> \param[out] INFO diff --git a/SRC/dlaed3.f b/SRC/dlaed3.f index 4e62b314..ae331b9d 100644 --- a/SRC/dlaed3.f +++ b/SRC/dlaed3.f @@ -116,7 +116,7 @@ *> *> \param[in] Q2 *> \verbatim -*> Q2 is DOUBLE PRECISION array, dimension (LDQ2, N) +*> Q2 is DOUBLE PRECISION array, dimension (LDQ2*N) *> The first K columns of this matrix contain the non-deflated *> eigenvectors for the split problem. *> \endverbatim diff --git a/SRC/dlalsa.f b/SRC/dlalsa.f index 4aef66c9..72880496 100644 --- a/SRC/dlalsa.f +++ b/SRC/dlalsa.f @@ -227,14 +227,12 @@ *> *> \param[out] WORK *> \verbatim -*> WORK is DOUBLE PRECISION array. -*> The dimension must be at least N. +*> WORK is DOUBLE PRECISION array, dimension (N) *> \endverbatim *> *> \param[out] IWORK *> \verbatim -*> IWORK is INTEGER array. -*> The dimension must be at least 3 * N +*> IWORK is INTEGER array, dimension (3*N) *> \endverbatim *> *> \param[out] INFO diff --git a/SRC/dlasda.f b/SRC/dlasda.f index 20ceedd0..c9c2aa17 100644 --- a/SRC/dlasda.f +++ b/SRC/dlasda.f @@ -239,8 +239,7 @@ *> *> \param[out] IWORK *> \verbatim -*> IWORK is INTEGER array. -*> Dimension must be at least (7 * N). +*> IWORK is INTEGER array, dimension (7*N) *> \endverbatim *> *> \param[out] INFO diff --git a/SRC/slaed3.f b/SRC/slaed3.f index 3ff991d8..b9e0b586 100644 --- a/SRC/slaed3.f +++ b/SRC/slaed3.f @@ -116,7 +116,7 @@ *> *> \param[in] Q2 *> \verbatim -*> Q2 is REAL array, dimension (LDQ2, N) +*> Q2 is REAL array, dimension (LDQ2*N) *> The first K columns of this matrix contain the non-deflated *> eigenvectors for the split problem. *> \endverbatim diff --git a/SRC/slalsa.f b/SRC/slalsa.f index 65707a15..5d82f33d 100644 --- a/SRC/slalsa.f +++ b/SRC/slalsa.f @@ -227,14 +227,12 @@ *> *> \param[out] WORK *> \verbatim -*> WORK is REAL array. -*> The dimension must be at least N. +*> WORK is REAL array, dimension (N) *> \endverbatim *> *> \param[out] IWORK *> \verbatim -*> IWORK is INTEGER array. -*> The dimension must be at least 3 * N +*> IWORK is INTEGER array, dimension (3*N) *> \endverbatim *> *> \param[out] INFO diff --git a/SRC/zcgesv.f b/SRC/zcgesv.f index 8240e2b6..142a0e7c 100644 --- a/SRC/zcgesv.f +++ b/SRC/zcgesv.f @@ -142,7 +142,7 @@ *> *> \param[out] WORK *> \verbatim -*> WORK is COMPLEX*16 array, dimension (N*NRHS) +*> WORK is COMPLEX*16 array, dimension (N,NRHS) *> This array is used to hold the residual vectors. *> \endverbatim *> diff --git a/SRC/zcposv.f b/SRC/zcposv.f index 3159c3dd..c90a70ce 100644 --- a/SRC/zcposv.f +++ b/SRC/zcposv.f @@ -150,7 +150,7 @@ *> *> \param[out] WORK *> \verbatim -*> WORK is COMPLEX*16 array, dimension (N*NRHS) +*> WORK is COMPLEX*16 array, dimension (N,NRHS) *> This array is used to hold the residual vectors. *> \endverbatim *> diff --git a/SRC/zlalsa.f b/SRC/zlalsa.f index 6ad6cc5e..7d939c0a 100644 --- a/SRC/zlalsa.f +++ b/SRC/zlalsa.f @@ -232,8 +232,7 @@ *> *> \param[out] IWORK *> \verbatim -*> IWORK is INTEGER array. -*> The dimension must be at least 3 * N +*> IWORK is INTEGER array, dimension (3*N) *> \endverbatim *> *> \param[out] INFO |