Subroutine */
| 6569 | } /* cgetf2_ */ |
| 6570 | |
| 6571 | /* Subroutine */ int cgetrf_(integer *m, integer *n, complex *a, integer *lda, |
| 6572 | integer *ipiv, integer *info) |
| 6573 | { |
| 6574 | /* System generated locals */ |
| 6575 | integer a_dim1, a_offset, i__1, i__2, i__3, i__4, i__5; |
| 6576 | complex q__1; |
| 6577 | |
| 6578 | /* Local variables */ |
| 6579 | static integer i__, j, jb, nb; |
| 6580 | extern /* Subroutine */ int cgemm_(char *, char *, integer *, integer *, |
| 6581 | integer *, complex *, complex *, integer *, complex *, integer *, |
| 6582 | complex *, complex *, integer *); |
| 6583 | static integer iinfo; |
| 6584 | extern /* Subroutine */ int ctrsm_(char *, char *, char *, char *, |
| 6585 | integer *, integer *, complex *, complex *, integer *, complex *, |
| 6586 | integer *), cgetf2_(integer *, |
| 6587 | integer *, complex *, integer *, integer *, integer *), xerbla_( |
| 6588 | char *, integer *); |
| 6589 | extern integer ilaenv_(integer *, char *, char *, integer *, integer *, |
| 6590 | integer *, integer *, ftnlen, ftnlen); |
| 6591 | extern /* Subroutine */ int claswp_(integer *, complex *, integer *, |
| 6592 | integer *, integer *, integer *, integer *); |
| 6593 | |
| 6594 | |
| 6595 | /* |
| 6596 | -- LAPACK routine (version 3.2) -- |
| 6597 | -- LAPACK is a software package provided by Univ. of Tennessee, -- |
| 6598 | -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- |
| 6599 | November 2006 |
| 6600 | |
| 6601 | |
| 6602 | Purpose |
| 6603 | ======= |
| 6604 | |
| 6605 | CGETRF computes an LU factorization of a general M-by-N matrix A |
| 6606 | using partial pivoting with row interchanges. |
| 6607 | |
| 6608 | The factorization has the form |
| 6609 | A = P * L * U |
| 6610 | where P is a permutation matrix, L is lower triangular with unit |
| 6611 | diagonal elements (lower trapezoidal if m > n), and U is upper |
| 6612 | triangular (upper trapezoidal if m < n). |
| 6613 | |
| 6614 | This is the right-looking Level 3 BLAS version of the algorithm. |
| 6615 | |
| 6616 | Arguments |
| 6617 | ========= |
| 6618 | |
| 6619 | M (input) INTEGER |
| 6620 | The number of rows of the matrix A. M >= 0. |
| 6621 | |
| 6622 | N (input) INTEGER |
| 6623 | The number of columns of the matrix A. N >= 0. |
| 6624 | |
| 6625 | A (input/output) COMPLEX array, dimension (LDA,N) |
| 6626 | On entry, the M-by-N matrix to be factored. |
| 6627 | On exit, the factors L and U from the factorization |
| 6628 | A = P*L*U; the unit diagonal elements of L are not stored. |