diff options
| author | langou <julien.langou@ucdenver.edu> | 2017-03-07 02:31:13 +0100 |
|---|---|---|
| committer | GitHub <noreply@github.com> | 2017-03-07 02:31:13 +0100 |
| commit | 06f63681c5c9ada2371e43c48d2fde6265a590e0 (patch) | |
| tree | cb858d639025247e33c91d5f7555a97ed8343db4 | |
| parent | d1dcde3bb829d23b775ca7da58c28355a20e9508 (diff) | |
| parent | 4869a50dbc1183fc6d9e58564b7ec14a95e1f40b (diff) | |
| download | lapack-06f63681c5c9ada2371e43c48d2fde6265a590e0.tar.gz lapack-06f63681c5c9ada2371e43c48d2fde6265a590e0.tar.bz2 lapack-06f63681c5c9ada2371e43c48d2fde6265a590e0.zip | |
Merge pull request #133 from echeresh/laswp_doc_fix
Fix documentation for ?LASWP routine
| -rw-r--r-- | SRC/claswp.f | 10 | ||||
| -rw-r--r-- | SRC/dlaswp.f | 10 | ||||
| -rw-r--r-- | SRC/slaswp.f | 10 | ||||
| -rw-r--r-- | SRC/zlaswp.f | 10 |
4 files changed, 24 insertions, 16 deletions
diff --git a/SRC/claswp.f b/SRC/claswp.f index 8b5632c8..94fa7732 100644 --- a/SRC/claswp.f +++ b/SRC/claswp.f @@ -79,14 +79,15 @@ *> \verbatim *> IPIV is INTEGER array, dimension (K1+(K2-K1)*abs(INCX)) *> The vector of pivot indices. Only the elements in positions -*> K1 through K1+(K2-K1)*INCX of IPIV are accessed. -*> IPIV(K) = L implies rows K and L are to be interchanged. +*> K1 through K1+(K2-K1)*abs(INCX) of IPIV are accessed. +*> IPIV(K1+(K-K1)*abs(INCX)) = L implies rows K and L are to be +*> interchanged. *> \endverbatim *> *> \param[in] INCX *> \verbatim *> INCX is INTEGER -*> The increment between successive values of IPIV. If IPIV +*> The increment between successive values of IPIV. If INCX *> is negative, the pivots are applied in reverse order. *> \endverbatim * @@ -135,7 +136,8 @@ * .. * .. Executable Statements .. * -* Interchange row I with row IPIV(I) for each of rows K1 through K2. +* Interchange row I with row IPIV(K1+(I-K1)*abs(INCX)) for each of rows +* K1 through K2. * IF( INCX.GT.0 ) THEN IX0 = K1 diff --git a/SRC/dlaswp.f b/SRC/dlaswp.f index 2c526ffa..575b5c48 100644 --- a/SRC/dlaswp.f +++ b/SRC/dlaswp.f @@ -79,14 +79,15 @@ *> \verbatim *> IPIV is INTEGER array, dimension (K1+(K2-K1)*abs(INCX)) *> The vector of pivot indices. Only the elements in positions -*> K1 through K1+(K2-K1)*INCX of IPIV are accessed. -*> IPIV(K) = L implies rows K and L are to be interchanged. +*> K1 through K1+(K2-K1)*abs(INCX) of IPIV are accessed. +*> IPIV(K1+(K-K1)*abs(INCX)) = L implies rows K and L are to be +*> interchanged. *> \endverbatim *> *> \param[in] INCX *> \verbatim *> INCX is INTEGER -*> The increment between successive values of IPIV. If IPIV +*> The increment between successive values of IPIV. If INCX *> is negative, the pivots are applied in reverse order. *> \endverbatim * @@ -135,7 +136,8 @@ * .. * .. Executable Statements .. * -* Interchange row I with row IPIV(I) for each of rows K1 through K2. +* Interchange row I with row IPIV(K1+(I-K1)*abs(INCX)) for each of rows +* K1 through K2. * IF( INCX.GT.0 ) THEN IX0 = K1 diff --git a/SRC/slaswp.f b/SRC/slaswp.f index ad12a3a3..9a17fdfd 100644 --- a/SRC/slaswp.f +++ b/SRC/slaswp.f @@ -79,14 +79,15 @@ *> \verbatim *> IPIV is INTEGER array, dimension (K1+(K2-K1)*abs(INCX)) *> The vector of pivot indices. Only the elements in positions -*> K1 through K1+(K2-K1)*INCX of IPIV are accessed. -*> IPIV(K) = L implies rows K and L are to be interchanged. +*> K1 through K1+(K2-K1)*abs(INCX) of IPIV are accessed. +*> IPIV(K1+(K-K1)*abs(INCX)) = L implies rows K and L are to be +*> interchanged. *> \endverbatim *> *> \param[in] INCX *> \verbatim *> INCX is INTEGER -*> The increment between successive values of IPIV. If IPIV +*> The increment between successive values of IPIV. If INCX *> is negative, the pivots are applied in reverse order. *> \endverbatim * @@ -135,7 +136,8 @@ * .. * .. Executable Statements .. * -* Interchange row I with row IPIV(I) for each of rows K1 through K2. +* Interchange row I with row IPIV(K1+(I-K1)*abs(INCX)) for each of rows +* K1 through K2. * IF( INCX.GT.0 ) THEN IX0 = K1 diff --git a/SRC/zlaswp.f b/SRC/zlaswp.f index 81ceba2c..1333e26f 100644 --- a/SRC/zlaswp.f +++ b/SRC/zlaswp.f @@ -79,14 +79,15 @@ *> \verbatim *> IPIV is INTEGER array, dimension (K1+(K2-K1)*abs(INCX)) *> The vector of pivot indices. Only the elements in positions -*> K1 through K1+(K2-K1)*INCX of IPIV are accessed. -*> IPIV(K) = L implies rows K and L are to be interchanged. +*> K1 through K1+(K2-K1)*abs(INCX) of IPIV are accessed. +*> IPIV(K1+(K-K1)*abs(INCX)) = L implies rows K and L are to be +*> interchanged. *> \endverbatim *> *> \param[in] INCX *> \verbatim *> INCX is INTEGER -*> The increment between successive values of IPIV. If IPIV +*> The increment between successive values of IPIV. If INCX *> is negative, the pivots are applied in reverse order. *> \endverbatim * @@ -135,7 +136,8 @@ * .. * .. Executable Statements .. * -* Interchange row I with row IPIV(I) for each of rows K1 through K2. +* Interchange row I with row IPIV(K1+(I-K1)*abs(INCX)) for each of rows +* K1 through K2. * IF( INCX.GT.0 ) THEN IX0 = K1 |