Subroutine */
| 7109 | } /* sgetf2_ */ |
| 7110 | |
| 7111 | /* Subroutine */ int sgetrf_(integer *m, integer *n, real *a, integer *lda, |
| 7112 | integer *ipiv, integer *info) |
| 7113 | { |
| 7114 | /* System generated locals */ |
| 7115 | integer a_dim1, a_offset, i__1, i__2, i__3, i__4, i__5; |
| 7116 | |
| 7117 | /* Local variables */ |
| 7118 | static integer i__, j, jb, nb, iinfo; |
| 7119 | extern /* Subroutine */ int sgemm_(char *, char *, integer *, integer *, |
| 7120 | integer *, real *, real *, integer *, real *, integer *, real *, |
| 7121 | real *, integer *), strsm_(char *, char *, char *, |
| 7122 | char *, integer *, integer *, real *, real *, integer *, real *, |
| 7123 | integer *), sgetf2_(integer *, |
| 7124 | integer *, real *, integer *, integer *, integer *), xerbla_(char |
| 7125 | *, integer *); |
| 7126 | extern integer ilaenv_(integer *, char *, char *, integer *, integer *, |
| 7127 | integer *, integer *, ftnlen, ftnlen); |
| 7128 | extern /* Subroutine */ int slaswp_(integer *, real *, integer *, integer |
| 7129 | *, integer *, integer *, integer *); |
| 7130 | |
| 7131 | |
| 7132 | /* |
| 7133 | -- LAPACK routine (version 3.2) -- |
| 7134 | -- LAPACK is a software package provided by Univ. of Tennessee, -- |
| 7135 | -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- |
| 7136 | November 2006 |
| 7137 | |
| 7138 | |
| 7139 | Purpose |
| 7140 | ======= |
| 7141 | |
| 7142 | SGETRF computes an LU factorization of a general M-by-N matrix A |
| 7143 | using partial pivoting with row interchanges. |
| 7144 | |
| 7145 | The factorization has the form |
| 7146 | A = P * L * U |
| 7147 | where P is a permutation matrix, L is lower triangular with unit |
| 7148 | diagonal elements (lower trapezoidal if m > n), and U is upper |
| 7149 | triangular (upper trapezoidal if m < n). |
| 7150 | |
| 7151 | This is the right-looking Level 3 BLAS version of the algorithm. |
| 7152 | |
| 7153 | Arguments |
| 7154 | ========= |
| 7155 | |
| 7156 | M (input) INTEGER |
| 7157 | The number of rows of the matrix A. M >= 0. |
| 7158 | |
| 7159 | N (input) INTEGER |
| 7160 | The number of columns of the matrix A. N >= 0. |
| 7161 | |
| 7162 | A (input/output) REAL array, dimension (LDA,N) |
| 7163 | On entry, the M-by-N matrix to be factored. |
| 7164 | On exit, the factors L and U from the factorization |
| 7165 | A = P*L*U; the unit diagonal elements of L are not stored. |
| 7166 | |
| 7167 | LDA (input) INTEGER |
| 7168 | The leading dimension of the array A. LDA >= max(1,M). |