Subroutine */
| 6402 | } /* cgesv_ */ |
| 6403 | |
| 6404 | /* Subroutine */ int cgetf2_(integer *m, integer *n, complex *a, integer *lda, |
| 6405 | integer *ipiv, integer *info) |
| 6406 | { |
| 6407 | /* System generated locals */ |
| 6408 | integer a_dim1, a_offset, i__1, i__2, i__3; |
| 6409 | complex q__1; |
| 6410 | |
| 6411 | /* Local variables */ |
| 6412 | static integer i__, j, jp; |
| 6413 | extern /* Subroutine */ int cscal_(integer *, complex *, complex *, |
| 6414 | integer *), cgeru_(integer *, integer *, complex *, complex *, |
| 6415 | integer *, complex *, integer *, complex *, integer *); |
| 6416 | static real sfmin; |
| 6417 | extern /* Subroutine */ int cswap_(integer *, complex *, integer *, |
| 6418 | complex *, integer *); |
| 6419 | extern integer icamax_(integer *, complex *, integer *); |
| 6420 | extern doublereal slamch_(char *); |
| 6421 | extern /* Subroutine */ int xerbla_(char *, integer *); |
| 6422 | |
| 6423 | |
| 6424 | /* |
| 6425 | -- LAPACK routine (version 3.2) -- |
| 6426 | -- LAPACK is a software package provided by Univ. of Tennessee, -- |
| 6427 | -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- |
| 6428 | November 2006 |
| 6429 | |
| 6430 | |
| 6431 | Purpose |
| 6432 | ======= |
| 6433 | |
| 6434 | CGETF2 computes an LU factorization of a general m-by-n matrix A |
| 6435 | using partial pivoting with row interchanges. |
| 6436 | |
| 6437 | The factorization has the form |
| 6438 | A = P * L * U |
| 6439 | where P is a permutation matrix, L is lower triangular with unit |
| 6440 | diagonal elements (lower trapezoidal if m > n), and U is upper |
| 6441 | triangular (upper trapezoidal if m < n). |
| 6442 | |
| 6443 | This is the right-looking Level 2 BLAS version of the algorithm. |
| 6444 | |
| 6445 | Arguments |
| 6446 | ========= |
| 6447 | |
| 6448 | M (input) INTEGER |
| 6449 | The number of rows of the matrix A. M >= 0. |
| 6450 | |
| 6451 | N (input) INTEGER |
| 6452 | The number of columns of the matrix A. N >= 0. |
| 6453 | |
| 6454 | A (input/output) COMPLEX array, dimension (LDA,N) |
| 6455 | On entry, the m by n matrix to be factored. |
| 6456 | On exit, the factors L and U from the factorization |
| 6457 | A = P*L*U; the unit diagonal elements of L are not stored. |
| 6458 | |
| 6459 | LDA (input) INTEGER |
| 6460 | The leading dimension of the array A. LDA >= max(1,M). |
| 6461 |