Subroutine */
| 6610 | } /* zgetf2_ */ |
| 6611 | |
| 6612 | /* Subroutine */ int zgetrf_(integer *m, integer *n, doublecomplex *a, |
| 6613 | integer *lda, integer *ipiv, integer *info) |
| 6614 | { |
| 6615 | /* System generated locals */ |
| 6616 | integer a_dim1, a_offset, i__1, i__2, i__3, i__4, i__5; |
| 6617 | doublecomplex z__1; |
| 6618 | |
| 6619 | /* Local variables */ |
| 6620 | static integer i__, j, jb, nb, iinfo; |
| 6621 | extern /* Subroutine */ int zgemm_(char *, char *, integer *, integer *, |
| 6622 | integer *, doublecomplex *, doublecomplex *, integer *, |
| 6623 | doublecomplex *, integer *, doublecomplex *, doublecomplex *, |
| 6624 | integer *), ztrsm_(char *, char *, char *, char *, |
| 6625 | integer *, integer *, doublecomplex *, doublecomplex *, integer * |
| 6626 | , doublecomplex *, integer *), |
| 6627 | zgetf2_(integer *, integer *, doublecomplex *, integer *, integer |
| 6628 | *, integer *), xerbla_(char *, integer *); |
| 6629 | extern integer ilaenv_(integer *, char *, char *, integer *, integer *, |
| 6630 | integer *, integer *, ftnlen, ftnlen); |
| 6631 | extern /* Subroutine */ int zlaswp_(integer *, doublecomplex *, integer *, |
| 6632 | integer *, integer *, integer *, integer *); |
| 6633 | |
| 6634 | |
| 6635 | /* |
| 6636 | -- LAPACK routine (version 3.2) -- |
| 6637 | -- LAPACK is a software package provided by Univ. of Tennessee, -- |
| 6638 | -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- |
| 6639 | November 2006 |
| 6640 | |
| 6641 | |
| 6642 | Purpose |
| 6643 | ======= |
| 6644 | |
| 6645 | ZGETRF computes an LU factorization of a general M-by-N matrix A |
| 6646 | using partial pivoting with row interchanges. |
| 6647 | |
| 6648 | The factorization has the form |
| 6649 | A = P * L * U |
| 6650 | where P is a permutation matrix, L is lower triangular with unit |
| 6651 | diagonal elements (lower trapezoidal if m > n), and U is upper |
| 6652 | triangular (upper trapezoidal if m < n). |
| 6653 | |
| 6654 | This is the right-looking Level 3 BLAS version of the algorithm. |
| 6655 | |
| 6656 | Arguments |
| 6657 | ========= |
| 6658 | |
| 6659 | M (input) INTEGER |
| 6660 | The number of rows of the matrix A. M >= 0. |
| 6661 | |
| 6662 | N (input) INTEGER |
| 6663 | The number of columns of the matrix A. N >= 0. |
| 6664 | |
| 6665 | A (input/output) COMPLEX*16 array, dimension (LDA,N) |
| 6666 | On entry, the M-by-N matrix to be factored. |
| 6667 | On exit, the factors L and U from the factorization |
| 6668 | A = P*L*U; the unit diagonal elements of L are not stored. |
| 6669 |