SRC/ssytd2.f(3)
π SRC/ssytd2.f(3) π
hey bestie!! welcome to the Library Functions Manual page for SRC/ssytd2.f(3) β we're about to make a symmetric matrix tridiagonal and look cute doing it π
β¨
β¨ NAME β¨
SRC/ssytd2.f β bestie, this is the manual page for the ssytd2 subroutine, and it's literally the unblocked glow-up that takes a real symmetric matrix to symmetric tridiagonal form. π¦
πΈ SYNOPSIS πΈ
β¨ Functions/Subroutines β¨
subroutine ssytd2 (uplo, n, a, lda, d, e, tau, info)β SSYTD2 reduces a symmetric matrix to real symmetric tridiagonal form by an orthogonal similarity transformation (unblocked algorithm). π
π Function/Subroutine Documentation π
π¦ subroutine ssytd2 π¦
subroutine ssytd2 (character uplo, integer n, real, dimension( lda, * ) a,
integer lda, real, dimension( * ) d, real, dimension( * ) e, real,
dimension( * ) tau, integer info)
SSYTD2 reduces a symmetric matrix to real symmetric tridiagonal form by an orthogonal similarity transformation (unblocked algorithm). β¨
π Purpose π
okay so the purpose is literally this, no cap:
SSYTD2 reduces a real symmetric matrix A to symmetric tridiagonal form T by an orthogonal similarity transformation: Q**T * A * Q = T. π₯
π¦ Parameters π¦
UPLOβUPLO is CHARACTER*1. It specifies whether the upper or lower triangular part of the symmetric matrixAis stored:= 'U':Upper triangular π¦= 'L':Lower triangular π¦
NβN is INTEGER. The order of the matrixA.N >= 0. πAβA is REAL array, dimension (LDA,N). On entry, the symmetric matrixA. IfUPLO = 'U', the leadingn-by-nupper triangular part ofAcontains the upper triangular part of the matrixA, and the strictly lower triangular part ofAis not referenced. IfUPLO = 'L', the leadingn-by-nlower triangular part ofAcontains the lower triangular part of the matrixA, and the strictly upper triangular part ofAis not referenced. On exit, ifUPLO = 'U', the diagonal and first superdiagonal ofAare overwritten by the corresponding elements of the tridiagonal matrixT, and the elements above the first superdiagonal, with the arrayTAU, represent the orthogonal matrixQas a product of elementary reflectors; ifUPLO = 'L', the diagonal and first subdiagonal ofAare overwritten by the corresponding elements of the tridiagonal matrixT, and the elements below the first subdiagonal, with the arrayTAU, represent the orthogonal matrixQas a product of elementary reflectors. See Further Details. πLDAβLDA is INTEGER. The leading dimension of the arrayA.LDA >= max(1,N). β¨DβD is REAL array, dimension (N). The diagonal elements of the tridiagonal matrixT:D(i) = A(i,i). πEβE is REAL array, dimension (N-1). The off-diagonal elements of the tridiagonal matrixT:E(i) = A(i,i+1)ifUPLO = 'U',E(i) = A(i+1,i)ifUPLO = 'L'. πTAUβTAU is REAL array, dimension (N-1). The scalar factors of the elementary reflectors (see Further Details). βINFOβINFO is INTEGER:= 0:successful exit π< 0:ifINFO = -i, thei-th argument had an illegal value. π
π Author π
these absolute icons, fr fr:
- Univ. of Tennessee
- Univ. of California Berkeley
- Univ. of Colorado Denver
- NAG Ltd.
π§ Further Details π§
If UPLO = 'U', the matrix Q is represented as a product of elementary reflectors
Q = H(n-1) . . . H(2) H(1).
Each H(i) has the form
H(i) = I - tau * v * v**T
where tau is a real scalar, and v is a real vector with v(i+1:n) = 0 and v(i) = 1; v(1:i-1) is stored on exit in A(1:i-1,i+1), and tau in TAU(i).
If UPLO = 'L', the matrix Q is represented as a product of elementary reflectors
Q = H(1) H(2) . . . H(n-1).
Each H(i) has the form
H(i) = I - tau * v * v**T
where tau is a real scalar, and v is a real vector with v(1:i) = 0 and v(i+1) = 1; v(i+2:n) is stored on exit in A(i+2:n,i), and tau in TAU(i).
The contents of A on exit are illustrated by the following examples with n = 5:
if UPLO = 'U': if UPLO = 'L':
( d e v2 v3 v4 ) ( d )
( d e v3 v4 ) ( e d )
( d e v4 ) ( v1 e d )
( d e ) ( v1 v2 e d )
( d ) ( v1 v2 v3 e d )
where d and e denote diagonal and off-diagonal elements of T, and vi denotes an element of the vector defining H(i).
π Definition at line 172 of file ssytd2.f. π
π«Ά Author π«Ά
Generated automatically by Doxygen for LAPACK from the source code.
okay bye bestie π this page is from LAPACK, Version 3.12.0, source SRC/ssytd2.f(3), and the date isn't listed here, so no fake date energy β that's the cute sign-off, 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