Subroutine */
| 21267 | } /* zlassq_ */ |
| 21268 | |
| 21269 | /* Subroutine */ int zlaswp_(integer *n, doublecomplex *a, integer *lda, |
| 21270 | integer *k1, integer *k2, integer *ipiv, integer *incx) |
| 21271 | { |
| 21272 | /* System generated locals */ |
| 21273 | integer a_dim1, a_offset, i__1, i__2, i__3, i__4, i__5, i__6; |
| 21274 | |
| 21275 | /* Local variables */ |
| 21276 | static integer i__, j, k, i1, i2, n32, ip, ix, ix0, inc; |
| 21277 | static doublecomplex temp; |
| 21278 | |
| 21279 | |
| 21280 | /* |
| 21281 | -- LAPACK auxiliary routine (version 3.2) -- |
| 21282 | -- LAPACK is a software package provided by Univ. of Tennessee, -- |
| 21283 | -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- |
| 21284 | November 2006 |
| 21285 | |
| 21286 | |
| 21287 | Purpose |
| 21288 | ======= |
| 21289 | |
| 21290 | ZLASWP performs a series of row interchanges on the matrix A. |
| 21291 | One row interchange is initiated for each of rows K1 through K2 of A. |
| 21292 | |
| 21293 | Arguments |
| 21294 | ========= |
| 21295 | |
| 21296 | N (input) INTEGER |
| 21297 | The number of columns of the matrix A. |
| 21298 | |
| 21299 | A (input/output) COMPLEX*16 array, dimension (LDA,N) |
| 21300 | On entry, the matrix of column dimension N to which the row |
| 21301 | interchanges will be applied. |
| 21302 | On exit, the permuted matrix. |
| 21303 | |
| 21304 | LDA (input) INTEGER |
| 21305 | The leading dimension of the array A. |
| 21306 | |
| 21307 | K1 (input) INTEGER |
| 21308 | The first element of IPIV for which a row interchange will |
| 21309 | be done. |
| 21310 | |
| 21311 | K2 (input) INTEGER |
| 21312 | The last element of IPIV for which a row interchange will |
| 21313 | be done. |
| 21314 | |
| 21315 | IPIV (input) INTEGER array, dimension (K2*abs(INCX)) |
| 21316 | The vector of pivot indices. Only the elements in positions |
| 21317 | K1 through K2 of IPIV are accessed. |
| 21318 | IPIV(K) = L implies rows K and L are to be interchanged. |
| 21319 | |
| 21320 | INCX (input) INTEGER |
| 21321 | The increment between successive values of IPIV. If IPIV |
| 21322 | is negative, the pivots are applied in reverse order. |
| 21323 | |
| 21324 | Further Details |
| 21325 | =============== |
| 21326 |