TESTING/LIN/srqt03.f(3)
π NAME π
okay bestie, welcome to TESTING/LIN/srqt03.f(3) from the Library Functions Manual β yes, this whole page is literally the TESTING/LIN/srqt03.f moment. slay π
β¨ SYNOPSIS β¨
π¦ Functions/Subroutines π¦
subroutine srqt03 (m, n, k, af, c, cc, q, lda, tau, work, lwork, rwork, result)βSRQT03
π Function/Subroutine Documentation π
subroutine srqt03 (integer m, integer n, integer k, real, dimension( lda, * ) af, real, dimension( lda, * ) c, real, dimension( lda, * ) cc, real, dimension( lda, * ) q, integer lda, real, dimension( * ) tau, real, dimension( lwork ) work, integer lwork, real, dimension( * ) rwork, real, dimension( * ) result)
SRQT03
πΈ Purpose πΈ
okay so SRQT03 is testing SORMRQ, which computes Q*C, Q'*C, C*Q or C*Q'.
and then SRQT03 compares the results of a call to SORMRQ with the results of forming Q explicitly by a call to SORGRQ and then performing matrix multiplication by a call to SGEMM. iconic behavior tbh β¨
π§ Parameters π§
Mβ INTEGER. The number of rows or columns of the matrixC;Cisn-by-mifQis applied from the left, orm-by-nifQis applied from the right.M >= 0.Nβ INTEGER. The order of the orthogonal matrixQ.N >= 0.Kβ INTEGER. The number of elementary reflectors whose product defines the orthogonal matrixQ.N >= K >= 0.AFβ REAL array, dimension(LDA,N). Details of the RQ factorization of anm-by-nmatrix, as returned bySGERQF. SeeSGERQFfor further details.Cβ REAL array, dimension(LDA,N).CCβ REAL array, dimension(LDA,N).Qβ REAL array, dimension(LDA,N).LDAβ INTEGER. The leading dimension of the arraysAF,C,CC, andQ.TAUβ REAL array, dimension(min(M,N)). The scalar factors of the elementary reflectors corresponding to the RQ factorization inAF.WORKβ REAL array, dimension(LWORK).LWORKβ INTEGER. The length ofWORK.LWORKmust be at leastM, and should beM*NB, whereNBis the blocksize for this environment.RWORKβ REAL array, dimension(M).RESULTβ REAL array, dimension(4). The test ratios compare two techniques for multiplying a random matrixCby ann-by-northogonal matrixQ.
RESULT(1) = norm( Q*C - Q*C ) / ( N * norm(C) * EPS )
RESULT(2) = norm( C*Q - C*Q ) / ( N * norm(C) * EPS )
RESULT(3) = norm( Q'*C - Q'*C )/ ( N * norm(C) * EPS )
RESULT(4) = norm( C*Q' - C*Q' )/ ( N * norm(C) * EPS )
π Author π
- Univ. of Tennessee
- Univ. of California Berkeley
- Univ. of Colorado Denver
- NAG Ltd.
Definition at line 134 of file srqt03.f.
β¨ Author β¨
Generated automatically by Doxygen for LAPACK from the source code.
thatβs the tea, bestie β source/version: LAPACK Version 3.12.0 Β· page: TESTING/LIN/srqt03.f(3) Β· date: not listed in this footer, so Iβm not inventing one π 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