diff options
Diffstat (limited to 'SRC/zlaswp.f')
-rw-r--r-- | SRC/zlaswp.f | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/SRC/zlaswp.f b/SRC/zlaswp.f index 82244efb..b695d944 100644 --- a/SRC/zlaswp.f +++ b/SRC/zlaswp.f @@ -71,15 +71,15 @@ *> \param[in] K2 *> \verbatim *> K2 is INTEGER -*> The last element of IPIV for which a row interchange will -*> be done. +*> (K2-K1+1) is the number of elements of IPIV for which a row +*> interchange will be done. *> \endverbatim *> *> \param[in] IPIV *> \verbatim -*> IPIV is INTEGER array, dimension (K2*abs(INCX)) -*> The vector of pivot indices. Only the elements in positions -*> K1 through K2 of IPIV are accessed. +*> 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. *> \endverbatim *> @@ -143,7 +143,7 @@ I2 = K2 INC = 1 ELSE IF( INCX.LT.0 ) THEN - IX0 = 1 + ( 1-K2 )*INCX + IX0 = K1 + ( K1-K2 )*INCX I1 = K2 I2 = K1 INC = -1 |