TESTING/LIN/dsyt01.f(3)
π NAME
okay bestie, this page is for TESTING/LIN/dsyt01.f(3) β and the manual page name is literally TESTING/LIN/dsyt01.f. lowkey iconic already.
β¨ SYNOPSIS
Under Functions/Subroutines you get this:
subroutine dsyt01 (uplo, n, a, lda, afac, ldafac, ipiv, c, ldc, rwork, resid)
and then the name DSYT01 shows up like the main character it is. π
π«Ά Function/Subroutine Documentation
subroutine dsyt01
subroutine dsyt01 (character uplo, integer n, double precision, dimension( lda, * ) a, integer lda, double precision, dimension( ldafac, * ) afac, integer ldafac, integer, dimension( * ) ipiv, double precision, dimension( ldc, * ) c, integer ldc, double precision, dimension( * ) rwork, double precision resid)
DSYT01
π Purpose:
Bestie, DSYT01 reconstructs a symmetric indefinite matrix A from its block L*D*L' or U*D*U' factorization and computes the residual
norm( C - A ) / ( N * norm(A) * EPS ),
where C is the reconstructed matrix and EPS is the machine epsilon. no cap, thatβs the whole purpose. β¨
π Parameters
UPLOβUPLO is CHARACTER*1; specifies whether the upper or lower triangular part of the symmetric matrixAis stored:= 'U': Upper triangular,= 'L': Lower triangular.NβN is INTEGER; the number of rows and columns of the matrixA.N >= 0.AβA is DOUBLE PRECISION array, dimension (LDA,N); the original symmetric matrixA.LDAβLDA is INTEGER; the leading dimension of the arrayA.LDA >= max(1,N)AFACβAFAC is DOUBLE PRECISION array, dimension (LDAFAC,N); the factored form of the matrixA.AFACcontains the block diagonal matrixDand the multipliers used to obtain the factorLorUfrom the blockL*D*L'orU*D*U'factorization as computed byDSYTRF.LDAFACβLDAFAC is INTEGER; the leading dimension of the arrayAFAC.LDAFAC >= max(1,N).IPIVβIPIV is INTEGER array, dimension (N); the pivot indices fromDSYTRF.CβC is DOUBLE PRECISION array, dimension (LDC,N).LDCβLDC is INTEGER; the leading dimension of the arrayC.LDC >= max(1,N).RWORKβRWORK is DOUBLE PRECISION array, dimension (N).RESIDβRESID is DOUBLE PRECISION; IfUPLO = 'L',norm(L*D*L' - A) / ( N * norm(A) * EPS ); IfUPLO = 'U',norm(U*D*U' - A) / ( N * norm(A) * EPS ).
π Author
- Univ. of Tennessee
- Univ. of California Berkeley
- Univ. of Colorado Denver
- NAG Ltd.
Definition at line 122 of file dsyt01.f.
π Author
Generated automatically by Doxygen for LAPACK from the source code.
xoxo, your LAPACK bestie π β LAPACK Version 3.12.0, page TESTING/LIN/dsyt01.f(3). mwah! π
π¦ where this page comes from
- arch rolling: lapack-doc 3.12.1-2 Β· custom
- π girlified by deepseek-ai/DeepSeek-V4.1-Flash-1017 on : a language model's rewrite of the original, under its terms