Subroutine */
| 6842 | } /* dgesdd_ */ |
| 6843 | |
| 6844 | /* Subroutine */ int dgesv_(integer *n, integer *nrhs, doublereal *a, integer |
| 6845 | *lda, integer *ipiv, doublereal *b, integer *ldb, integer *info) |
| 6846 | { |
| 6847 | /* System generated locals */ |
| 6848 | integer a_dim1, a_offset, b_dim1, b_offset, i__1; |
| 6849 | |
| 6850 | /* Local variables */ |
| 6851 | extern /* Subroutine */ int dgetrf_(integer *, integer *, doublereal *, |
| 6852 | integer *, integer *, integer *), xerbla_(char *, integer *), dgetrs_(char *, integer *, integer *, doublereal *, |
| 6853 | integer *, integer *, doublereal *, integer *, integer *); |
| 6854 | |
| 6855 | |
| 6856 | /* |
| 6857 | -- LAPACK driver routine (version 3.2) -- |
| 6858 | -- LAPACK is a software package provided by Univ. of Tennessee, -- |
| 6859 | -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- |
| 6860 | November 2006 |
| 6861 | |
| 6862 | |
| 6863 | Purpose |
| 6864 | ======= |
| 6865 | |
| 6866 | DGESV computes the solution to a real system of linear equations |
| 6867 | A * X = B, |
| 6868 | where A is an N-by-N matrix and X and B are N-by-NRHS matrices. |
| 6869 | |
| 6870 | The LU decomposition with partial pivoting and row interchanges is |
| 6871 | used to factor A as |
| 6872 | A = P * L * U, |
| 6873 | where P is a permutation matrix, L is unit lower triangular, and U is |
| 6874 | upper triangular. The factored form of A is then used to solve the |
| 6875 | system of equations A * X = B. |
| 6876 | |
| 6877 | Arguments |
| 6878 | ========= |
| 6879 | |
| 6880 | N (input) INTEGER |
| 6881 | The number of linear equations, i.e., the order of the |
| 6882 | matrix A. N >= 0. |
| 6883 | |
| 6884 | NRHS (input) INTEGER |
| 6885 | The number of right hand sides, i.e., the number of columns |
| 6886 | of the matrix B. NRHS >= 0. |
| 6887 | |
| 6888 | A (input/output) DOUBLE PRECISION array, dimension (LDA,N) |
| 6889 | On entry, the N-by-N coefficient matrix A. |
| 6890 | On exit, the factors L and U from the factorization |
| 6891 | A = P*L*U; the unit diagonal elements of L are not stored. |
| 6892 | |
| 6893 | LDA (input) INTEGER |
| 6894 | The leading dimension of the array A. LDA >= max(1,N). |
| 6895 | |
| 6896 | IPIV (output) INTEGER array, dimension (N) |
| 6897 | The pivot indices that define the permutation matrix P; |
| 6898 | row i of the matrix was interchanged with row IPIV(i). |
| 6899 | |
| 6900 | B (input/output) DOUBLE PRECISION array, dimension (LDB,NRHS) |
| 6901 | On entry, the N-by-NRHS matrix of right hand side matrix B. |