Subroutine */
| 6284 | } /* cgesdd_ */ |
| 6285 | |
| 6286 | /* Subroutine */ int cgesv_(integer *n, integer *nrhs, complex *a, integer * |
| 6287 | lda, integer *ipiv, complex *b, integer *ldb, integer *info) |
| 6288 | { |
| 6289 | /* System generated locals */ |
| 6290 | integer a_dim1, a_offset, b_dim1, b_offset, i__1; |
| 6291 | |
| 6292 | /* Local variables */ |
| 6293 | extern /* Subroutine */ int cgetrf_(integer *, integer *, complex *, |
| 6294 | integer *, integer *, integer *), xerbla_(char *, integer *), cgetrs_(char *, integer *, integer *, complex *, integer |
| 6295 | *, integer *, complex *, integer *, integer *); |
| 6296 | |
| 6297 | |
| 6298 | /* |
| 6299 | -- LAPACK driver routine (version 3.2) -- |
| 6300 | -- LAPACK is a software package provided by Univ. of Tennessee, -- |
| 6301 | -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- |
| 6302 | November 2006 |
| 6303 | |
| 6304 | |
| 6305 | Purpose |
| 6306 | ======= |
| 6307 | |
| 6308 | CGESV computes the solution to a complex system of linear equations |
| 6309 | A * X = B, |
| 6310 | where A is an N-by-N matrix and X and B are N-by-NRHS matrices. |
| 6311 | |
| 6312 | The LU decomposition with partial pivoting and row interchanges is |
| 6313 | used to factor A as |
| 6314 | A = P * L * U, |
| 6315 | where P is a permutation matrix, L is unit lower triangular, and U is |
| 6316 | upper triangular. The factored form of A is then used to solve the |
| 6317 | system of equations A * X = B. |
| 6318 | |
| 6319 | Arguments |
| 6320 | ========= |
| 6321 | |
| 6322 | N (input) INTEGER |
| 6323 | The number of linear equations, i.e., the order of the |
| 6324 | matrix A. N >= 0. |
| 6325 | |
| 6326 | NRHS (input) INTEGER |
| 6327 | The number of right hand sides, i.e., the number of columns |
| 6328 | of the matrix B. NRHS >= 0. |
| 6329 | |
| 6330 | A (input/output) COMPLEX array, dimension (LDA,N) |
| 6331 | On entry, the N-by-N coefficient matrix A. |
| 6332 | On exit, the factors L and U from the factorization |
| 6333 | A = P*L*U; the unit diagonal elements of L are not stored. |
| 6334 | |
| 6335 | LDA (input) INTEGER |
| 6336 | The leading dimension of the array A. LDA >= max(1,N). |
| 6337 | |
| 6338 | IPIV (output) INTEGER array, dimension (N) |
| 6339 | The pivot indices that define the permutation matrix P; |
| 6340 | row i of the matrix was interchanged with row IPIV(i). |
| 6341 | |
| 6342 | B (input/output) COMPLEX array, dimension (LDB,NRHS) |
| 6343 | On entry, the N-by-NRHS matrix of right hand side matrix B. |