Subroutine */
| 31933 | } /* dlasv2_ */ |
| 31934 | |
| 31935 | /* Subroutine */ int dlaswp_(integer *n, doublereal *a, integer *lda, integer |
| 31936 | *k1, integer *k2, integer *ipiv, integer *incx) |
| 31937 | { |
| 31938 | /* System generated locals */ |
| 31939 | integer a_dim1, a_offset, i__1, i__2, i__3, i__4; |
| 31940 | |
| 31941 | /* Local variables */ |
| 31942 | static integer i__, j, k, i1, i2, n32, ip, ix, ix0, inc; |
| 31943 | static doublereal temp; |
| 31944 | |
| 31945 | |
| 31946 | /* |
| 31947 | -- LAPACK auxiliary routine (version 3.2) -- |
| 31948 | -- LAPACK is a software package provided by Univ. of Tennessee, -- |
| 31949 | -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- |
| 31950 | November 2006 |
| 31951 | |
| 31952 | |
| 31953 | Purpose |
| 31954 | ======= |
| 31955 | |
| 31956 | DLASWP performs a series of row interchanges on the matrix A. |
| 31957 | One row interchange is initiated for each of rows K1 through K2 of A. |
| 31958 | |
| 31959 | Arguments |
| 31960 | ========= |
| 31961 | |
| 31962 | N (input) INTEGER |
| 31963 | The number of columns of the matrix A. |
| 31964 | |
| 31965 | A (input/output) DOUBLE PRECISION array, dimension (LDA,N) |
| 31966 | On entry, the matrix of column dimension N to which the row |
| 31967 | interchanges will be applied. |
| 31968 | On exit, the permuted matrix. |
| 31969 | |
| 31970 | LDA (input) INTEGER |
| 31971 | The leading dimension of the array A. |
| 31972 | |
| 31973 | K1 (input) INTEGER |
| 31974 | The first element of IPIV for which a row interchange will |
| 31975 | be done. |
| 31976 | |
| 31977 | K2 (input) INTEGER |
| 31978 | The last element of IPIV for which a row interchange will |
| 31979 | be done. |
| 31980 | |
| 31981 | IPIV (input) INTEGER array, dimension (K2*abs(INCX)) |
| 31982 | The vector of pivot indices. Only the elements in positions |
| 31983 | K1 through K2 of IPIV are accessed. |
| 31984 | IPIV(K) = L implies rows K and L are to be interchanged. |
| 31985 | |
| 31986 | INCX (input) INTEGER |
| 31987 | The increment between successive values of IPIV. If IPIV |
| 31988 | is negative, the pivots are applied in reverse order. |
| 31989 | |
| 31990 | Further Details |
| 31991 | =============== |
| 31992 |