Subroutine */
| 21160 | } /* classq_ */ |
| 21161 | |
| 21162 | /* Subroutine */ int claswp_(integer *n, complex *a, integer *lda, integer * |
| 21163 | k1, integer *k2, integer *ipiv, integer *incx) |
| 21164 | { |
| 21165 | /* System generated locals */ |
| 21166 | integer a_dim1, a_offset, i__1, i__2, i__3, i__4, i__5, i__6; |
| 21167 | |
| 21168 | /* Local variables */ |
| 21169 | static integer i__, j, k, i1, i2, n32, ip, ix, ix0, inc; |
| 21170 | static complex temp; |
| 21171 | |
| 21172 | |
| 21173 | /* |
| 21174 | -- LAPACK auxiliary routine (version 3.2) -- |
| 21175 | -- LAPACK is a software package provided by Univ. of Tennessee, -- |
| 21176 | -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- |
| 21177 | November 2006 |
| 21178 | |
| 21179 | |
| 21180 | Purpose |
| 21181 | ======= |
| 21182 | |
| 21183 | CLASWP performs a series of row interchanges on the matrix A. |
| 21184 | One row interchange is initiated for each of rows K1 through K2 of A. |
| 21185 | |
| 21186 | Arguments |
| 21187 | ========= |
| 21188 | |
| 21189 | N (input) INTEGER |
| 21190 | The number of columns of the matrix A. |
| 21191 | |
| 21192 | A (input/output) COMPLEX array, dimension (LDA,N) |
| 21193 | On entry, the matrix of column dimension N to which the row |
| 21194 | interchanges will be applied. |
| 21195 | On exit, the permuted matrix. |
| 21196 | |
| 21197 | LDA (input) INTEGER |
| 21198 | The leading dimension of the array A. |
| 21199 | |
| 21200 | K1 (input) INTEGER |
| 21201 | The first element of IPIV for which a row interchange will |
| 21202 | be done. |
| 21203 | |
| 21204 | K2 (input) INTEGER |
| 21205 | The last element of IPIV for which a row interchange will |
| 21206 | be done. |
| 21207 | |
| 21208 | IPIV (input) INTEGER array, dimension (K2*abs(INCX)) |
| 21209 | The vector of pivot indices. Only the elements in positions |
| 21210 | K1 through K2 of IPIV are accessed. |
| 21211 | IPIV(K) = L implies rows K and L are to be interchanged. |
| 21212 | |
| 21213 | INCX (input) INTEGER |
| 21214 | The increment between successive values of IPIV. If IPIV |
| 21215 | is negative, the pivots are applied in reverse order. |
| 21216 | |
| 21217 | Further Details |
| 21218 | =============== |
| 21219 |