Subroutine */
| 6760 | } /* cgetrf_ */ |
| 6761 | |
| 6762 | /* Subroutine */ int cgetrs_(char *trans, integer *n, integer *nrhs, complex * |
| 6763 | a, integer *lda, integer *ipiv, complex *b, integer *ldb, integer * |
| 6764 | info) |
| 6765 | { |
| 6766 | /* System generated locals */ |
| 6767 | integer a_dim1, a_offset, b_dim1, b_offset, i__1; |
| 6768 | |
| 6769 | /* Local variables */ |
| 6770 | extern logical lsame_(char *, char *); |
| 6771 | extern /* Subroutine */ int ctrsm_(char *, char *, char *, char *, |
| 6772 | integer *, integer *, complex *, complex *, integer *, complex *, |
| 6773 | integer *), xerbla_(char *, |
| 6774 | integer *), claswp_(integer *, complex *, integer *, |
| 6775 | integer *, integer *, integer *, integer *); |
| 6776 | static logical notran; |
| 6777 | |
| 6778 | |
| 6779 | /* |
| 6780 | -- LAPACK routine (version 3.2) -- |
| 6781 | -- LAPACK is a software package provided by Univ. of Tennessee, -- |
| 6782 | -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- |
| 6783 | November 2006 |
| 6784 | |
| 6785 | |
| 6786 | Purpose |
| 6787 | ======= |
| 6788 | |
| 6789 | CGETRS solves a system of linear equations |
| 6790 | A * X = B, A**T * X = B, or A**H * X = B |
| 6791 | with a general N-by-N matrix A using the LU factorization computed |
| 6792 | by CGETRF. |
| 6793 | |
| 6794 | Arguments |
| 6795 | ========= |
| 6796 | |
| 6797 | TRANS (input) CHARACTER*1 |
| 6798 | Specifies the form of the system of equations: |
| 6799 | = 'N': A * X = B (No transpose) |
| 6800 | = 'T': A**T * X = B (Transpose) |
| 6801 | = 'C': A**H * X = B (Conjugate transpose) |
| 6802 | |
| 6803 | N (input) INTEGER |
| 6804 | The order of the matrix A. N >= 0. |
| 6805 | |
| 6806 | NRHS (input) INTEGER |
| 6807 | The number of right hand sides, i.e., the number of columns |
| 6808 | of the matrix B. NRHS >= 0. |
| 6809 | |
| 6810 | A (input) COMPLEX array, dimension (LDA,N) |
| 6811 | The factors L and U from the factorization A = P*L*U |
| 6812 | as computed by CGETRF. |
| 6813 | |
| 6814 | LDA (input) INTEGER |
| 6815 | The leading dimension of the array A. LDA >= max(1,N). |
| 6816 | |
| 6817 | IPIV (input) INTEGER array, dimension (N) |
| 6818 | The pivot indices from CGETRF; for 1<=i<=N, row i of the |
| 6819 | matrix was interchanged with row IPIV(i). |