TESTING/LIN/ztrt01.f(3)
π NAME
okay bestie, this is the TESTING/LIN/ztrt01.f page from the Library Functions Manual, and it's serving ZTRT01 realness: a subroutine that checks the residual for a triangular matrix A times its inverse. β¨
π SYNOPSIS
β¨ Functions/Subroutines
subroutine ztrt01 (uplo, diag, n, a, lda, ainv, ldainv, rcond, rwork, resid)β the wholeZTRT01moment.
π¦ Function/Subroutine Documentation
subroutine ztrt01 (character uplo, character diag, integer n, complex*16,
dimension( lda, * ) a, integer lda, complex*16, dimension( ldainv, * )
ainv, integer ldainv, double precision rcond, double precision,
dimension( * ) rwork, double precision resid)
ZTRT01
πΈ Purpose
okay so ZTRT01 computes the residual for a triangular matrix A times its inverse:
RESID = norm( A*AINV - I ) / ( N * norm(A) * norm(AINV) * EPS ),
where EPS is the machine epsilon. π«Ά
π₯ Parameters
UPLOβUPLOisCHARACTER*1. It says whether the matrixAis upper or lower triangular.= 'U': Upper triangular= 'L': Lower triangular
DIAGβDIAGisCHARACTER*1. It says whether or not the matrixAis unit triangular.= 'N': Non-unit triangular= 'U': Unit triangular
NβNisINTEGER. The order of the matrixA.N >= 0.AβAisCOMPLEX*16array, dimension(LDA,N). The triangular matrixA. IfUPLO = 'U', the leading n by n upper triangular part of the arrayAcontains the upper triangular matrix, and the strictly lower triangular part ofAis not referenced. IfUPLO = 'L', the leading n by n lower triangular part of the arrayAcontains the lower triangular matrix, and the strictly upper triangular part ofAis not referenced. IfDIAG = 'U', the diagonal elements ofAare also not referenced and are assumed to be1.LDAβLDAisINTEGER. The leading dimension of the arrayA.LDA >= max(1,N).AINVβAINVisCOMPLEX*16array, dimension(LDAINV,N). On entry, the (triangular) inverse of the matrixA, in the same storage format asA. On exit, the contents ofAINVare destroyed. πLDAINVβLDAINVisINTEGER. The leading dimension of the arrayAINV.LDAINV >= max(1,N).RCONDβRCONDisDOUBLE PRECISION. The reciprocal condition number ofA, computed as1/(norm(A) * norm(AINV)).RWORKβRWORKisDOUBLE PRECISIONarray, dimension(N).RESIDβRESIDisDOUBLE PRECISION.norm(A*AINV - I) / ( N * norm(A) * norm(AINV) * EPS ).
π Author
- Univ. of Tennessee
- Univ. of California Berkeley
- Univ. of Colorado Denver
- NAG Ltd.
Definition at line 123 of file ztrt01.f.
π Author
Generated automatically by Doxygen for LAPACK from the source code.
π cute sign-off time: source/version footer tea is LAPACK, Version 3.12.0 β and the page doesn't print a separate date, so that's the whole sign-off vibe. mwah, bestie. π
β¨
π¦ 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