Subroutine */
| 6800 | } /* zgetrf_ */ |
| 6801 | |
| 6802 | /* Subroutine */ int zgetrs_(char *trans, integer *n, integer *nrhs, |
| 6803 | doublecomplex *a, integer *lda, integer *ipiv, doublecomplex *b, |
| 6804 | integer *ldb, integer *info) |
| 6805 | { |
| 6806 | /* System generated locals */ |
| 6807 | integer a_dim1, a_offset, b_dim1, b_offset, i__1; |
| 6808 | |
| 6809 | /* Local variables */ |
| 6810 | extern logical lsame_(char *, char *); |
| 6811 | extern /* Subroutine */ int ztrsm_(char *, char *, char *, char *, |
| 6812 | integer *, integer *, doublecomplex *, doublecomplex *, integer *, |
| 6813 | doublecomplex *, integer *), |
| 6814 | xerbla_(char *, integer *); |
| 6815 | static logical notran; |
| 6816 | extern /* Subroutine */ int zlaswp_(integer *, doublecomplex *, integer *, |
| 6817 | integer *, integer *, integer *, integer *); |
| 6818 | |
| 6819 | |
| 6820 | /* |
| 6821 | -- LAPACK routine (version 3.2) -- |
| 6822 | -- LAPACK is a software package provided by Univ. of Tennessee, -- |
| 6823 | -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- |
| 6824 | November 2006 |
| 6825 | |
| 6826 | |
| 6827 | Purpose |
| 6828 | ======= |
| 6829 | |
| 6830 | ZGETRS solves a system of linear equations |
| 6831 | A * X = B, A**T * X = B, or A**H * X = B |
| 6832 | with a general N-by-N matrix A using the LU factorization computed |
| 6833 | by ZGETRF. |
| 6834 | |
| 6835 | Arguments |
| 6836 | ========= |
| 6837 | |
| 6838 | TRANS (input) CHARACTER*1 |
| 6839 | Specifies the form of the system of equations: |
| 6840 | = 'N': A * X = B (No transpose) |
| 6841 | = 'T': A**T * X = B (Transpose) |
| 6842 | = 'C': A**H * X = B (Conjugate transpose) |
| 6843 | |
| 6844 | N (input) INTEGER |
| 6845 | The order of the matrix A. N >= 0. |
| 6846 | |
| 6847 | NRHS (input) INTEGER |
| 6848 | The number of right hand sides, i.e., the number of columns |
| 6849 | of the matrix B. NRHS >= 0. |
| 6850 | |
| 6851 | A (input) COMPLEX*16 array, dimension (LDA,N) |
| 6852 | The factors L and U from the factorization A = P*L*U |
| 6853 | as computed by ZGETRF. |
| 6854 | |
| 6855 | LDA (input) INTEGER |
| 6856 | The leading dimension of the array A. LDA >= max(1,N). |
| 6857 | |
| 6858 | IPIV (input) INTEGER array, dimension (N) |
| 6859 | The pivot indices from ZGETRF; for 1<=i<=N, row i of the |