diff options
| author | eugene.chereshnev <eugenechereshnev@gmail.com> | 2017-03-06 15:58:15 -0800 |
|---|---|---|
| committer | eugene.chereshnev <eugenechereshnev@gmail.com> | 2017-03-06 15:58:15 -0800 |
| commit | 4869a50dbc1183fc6d9e58564b7ec14a95e1f40b (patch) | |
| tree | cb858d639025247e33c91d5f7555a97ed8343db4 /SRC/slaswp.f | |
| parent | d1dcde3bb829d23b775ca7da58c28355a20e9508 (diff) | |
| download | lapack-4869a50dbc1183fc6d9e58564b7ec14a95e1f40b.tar.gz lapack-4869a50dbc1183fc6d9e58564b7ec14a95e1f40b.tar.bz2 lapack-4869a50dbc1183fc6d9e58564b7ec14a95e1f40b.zip | |
Fix documentation for ?LASWP routine
Diffstat (limited to 'SRC/slaswp.f')
| -rw-r--r-- | SRC/slaswp.f | 10 |
1 files changed, 6 insertions, 4 deletions
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 |