version 1.16, 2017/06/17 11:06:27
|
version 1.17, 2018/05/29 06:55:20
|
Line 79
|
Line 79
|
*> \verbatim |
*> \verbatim |
*> IPIV is INTEGER array, dimension (K1+(K2-K1)*abs(INCX)) |
*> IPIV is INTEGER array, dimension (K1+(K2-K1)*abs(INCX)) |
*> The vector of pivot indices. Only the elements in positions |
*> The vector of pivot indices. Only the elements in positions |
*> K1 through K1+(K2-K1)*INCX of IPIV are accessed. |
*> K1 through K1+(K2-K1)*abs(INCX) of IPIV are accessed. |
*> IPIV(K) = L implies rows K and L are to be interchanged. |
*> IPIV(K1+(K-K1)*abs(INCX)) = L implies rows K and L are to be |
|
*> interchanged. |
*> \endverbatim |
*> \endverbatim |
*> |
*> |
*> \param[in] INCX |
*> \param[in] INCX |
*> \verbatim |
*> \verbatim |
*> INCX is INTEGER |
*> 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. |
*> is negative, the pivots are applied in reverse order. |
*> \endverbatim |
*> \endverbatim |
* |
* |
Line 98
|
Line 99
|
*> \author Univ. of Colorado Denver |
*> \author Univ. of Colorado Denver |
*> \author NAG Ltd. |
*> \author NAG Ltd. |
* |
* |
*> \date December 2016 |
*> \date June 2017 |
* |
* |
*> \ingroup doubleOTHERauxiliary |
*> \ingroup doubleOTHERauxiliary |
* |
* |
Line 114
|
Line 115
|
* ===================================================================== |
* ===================================================================== |
SUBROUTINE DLASWP( N, A, LDA, K1, K2, IPIV, INCX ) |
SUBROUTINE DLASWP( N, A, LDA, K1, K2, IPIV, INCX ) |
* |
* |
* -- LAPACK auxiliary routine (version 3.7.0) -- |
* -- LAPACK auxiliary routine (version 3.7.1) -- |
* -- LAPACK is a software package provided by Univ. of Tennessee, -- |
* -- LAPACK is a software package provided by Univ. of Tennessee, -- |
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- |
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- |
* December 2016 |
* June 2017 |
* |
* |
* .. Scalar Arguments .. |
* .. Scalar Arguments .. |
INTEGER INCX, K1, K2, LDA, N |
INTEGER INCX, K1, K2, LDA, N |
Line 135
|
Line 136
|
* .. |
* .. |
* .. Executable Statements .. |
* .. 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 |
IF( INCX.GT.0 ) THEN |
IX0 = K1 |
IX0 = K1 |