Subroutine */
| 6443 | } /* zgesv_ */ |
| 6444 | |
| 6445 | /* Subroutine */ int zgetf2_(integer *m, integer *n, doublecomplex *a, |
| 6446 | integer *lda, integer *ipiv, integer *info) |
| 6447 | { |
| 6448 | /* System generated locals */ |
| 6449 | integer a_dim1, a_offset, i__1, i__2, i__3; |
| 6450 | doublecomplex z__1; |
| 6451 | |
| 6452 | /* Local variables */ |
| 6453 | static integer i__, j, jp; |
| 6454 | static doublereal sfmin; |
| 6455 | extern /* Subroutine */ int zscal_(integer *, doublecomplex *, |
| 6456 | doublecomplex *, integer *), zgeru_(integer *, integer *, |
| 6457 | doublecomplex *, doublecomplex *, integer *, doublecomplex *, |
| 6458 | integer *, doublecomplex *, integer *), zswap_(integer *, |
| 6459 | doublecomplex *, integer *, doublecomplex *, integer *); |
| 6460 | |
| 6461 | extern /* Subroutine */ int xerbla_(char *, integer *); |
| 6462 | extern integer izamax_(integer *, doublecomplex *, integer *); |
| 6463 | |
| 6464 | |
| 6465 | /* |
| 6466 | -- LAPACK routine (version 3.2) -- |
| 6467 | -- LAPACK is a software package provided by Univ. of Tennessee, -- |
| 6468 | -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- |
| 6469 | November 2006 |
| 6470 | |
| 6471 | |
| 6472 | Purpose |
| 6473 | ======= |
| 6474 | |
| 6475 | ZGETF2 computes an LU factorization of a general m-by-n matrix A |
| 6476 | using partial pivoting with row interchanges. |
| 6477 | |
| 6478 | The factorization has the form |
| 6479 | A = P * L * U |
| 6480 | where P is a permutation matrix, L is lower triangular with unit |
| 6481 | diagonal elements (lower trapezoidal if m > n), and U is upper |
| 6482 | triangular (upper trapezoidal if m < n). |
| 6483 | |
| 6484 | This is the right-looking Level 2 BLAS version of the algorithm. |
| 6485 | |
| 6486 | Arguments |
| 6487 | ========= |
| 6488 | |
| 6489 | M (input) INTEGER |
| 6490 | The number of rows of the matrix A. M >= 0. |
| 6491 | |
| 6492 | N (input) INTEGER |
| 6493 | The number of columns of the matrix A. N >= 0. |
| 6494 | |
| 6495 | A (input/output) COMPLEX*16 array, dimension (LDA,N) |
| 6496 | On entry, the m by n matrix to be factored. |
| 6497 | On exit, the factors L and U from the factorization |
| 6498 | A = P*L*U; the unit diagonal elements of L are not stored. |
| 6499 | |
| 6500 | LDA (input) INTEGER |
| 6501 | The leading dimension of the array A. LDA >= max(1,M). |
| 6502 |