![]() |
LAPACK
3.7.0
LAPACK: Linear Algebra PACKage
|
subroutine sget01 | ( | integer | M, |
integer | N, | ||
real, dimension( lda, * ) | A, | ||
integer | LDA, | ||
real, dimension( ldafac, * ) | AFAC, | ||
integer | LDAFAC, | ||
integer, dimension( * ) | IPIV, | ||
real, dimension( * ) | RWORK, | ||
real | RESID | ||
) |
SGET01
SGET01 reconstructs a matrix A from its L*U factorization and computes the residual norm(L*U - A) / ( N * norm(A) * EPS ), where EPS is the machine epsilon.
[in] | M | M is INTEGER The number of rows of the matrix A. M >= 0. |
[in] | N | N is INTEGER The number of columns of the matrix A. N >= 0. |
[in] | A | A is REAL array, dimension (LDA,N) The original M x N matrix A. |
[in] | LDA | LDA is INTEGER The leading dimension of the array A. LDA >= max(1,M). |
[in,out] | AFAC | AFAC is REAL array, dimension (LDAFAC,N) The factored form of the matrix A. AFAC contains the factors L and U from the L*U factorization as computed by SGETRF. Overwritten with the reconstructed matrix, and then with the difference L*U - A. |
[in] | LDAFAC | LDAFAC is INTEGER The leading dimension of the array AFAC. LDAFAC >= max(1,M). |
[in] | IPIV | IPIV is INTEGER array, dimension (N) The pivot indices from SGETRF. |
[out] | RWORK | RWORK is REAL array, dimension (M) |
[out] | RESID | RESID is REAL norm(L*U - A) / ( N * norm(A) * EPS ) |
Definition at line 109 of file sget01.f.