CHETD2(3)
π CHETD2(3) β Library Functions Manual π
okay bestie, welcome to CHETD2(3) from the Library Functions Manual. This is the group-chat explainer for the Fortran source file, and yes she has lore. π
π¦ NAME π¦
/home/abuild/rpmbuild/BUILD/lapack-static-3.12.0-build/lapack-3.12.0/SRC/chetd2.f β that's the source file this page documents, periodt. No cap, that's literally the NAME section. π
β¨ SYNOPSIS β¨
Functions/Subroutines
subroutine CHETD2 (uplo, n, a, lda, d, e, tau, info)
CHETD2 reduces a Hermitian matrix to real symmetric tridiagonal form by an unitary similarity transformation (unblocked algorithm). That's the whole vibe. π¦
π Function/Subroutine Documentation π
subroutine CHETD2 (character uplo, integer n, complex, dimension( lda, * )
a, integer lda, real, dimension( * ) d, real, dimension( * ) e, complex,
dimension( * ) tau, integer info)
CHETD2 reduces a Hermitian matrix to real symmetric tridiagonal form by an unitary similarity transformation (unblocked algorithm). β¨
πΈ Purpose πΈ
The whole purpose, bestie: CHETD2 reduces a complex Hermitian matrix A to real symmetric tridiagonal form T by a unitary similarity transformation: Q**H * A * Q = T. That's it, that's the assignment. π
π§Έ Parameters π§Έ
UPLOβUPLOisCHARACTER*1. Specifies whether the upper or lower triangular part of the Hermitian matrixAis stored:= 'U':Upper triangular= 'L':Lower triangular
NβNisINTEGER. The order of the matrixA.N >= 0.AβAisCOMPLEX array, dimension (LDA,N). On entry, the Hermitian 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 unitary matrixQas a product of elementary reflectors; ifUPLO = 'L', the diagonal and first subdiagonal ofAare over-written by the corresponding elements of the tridiagonal matrixT, and the elements below the first subdiagonal, with the arrayTAU, represent the unitary matrixQas a product of elementary reflectors. See Further Details. π«LDAβLDAisINTEGER. The leading dimension of the arrayA.LDA >= max(1,N).DβDisREAL array, dimension (N). The diagonal elements of the tridiagonal matrixT:D(i) = A(i,i).EβEisREAL 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βTAUisCOMPLEX array, dimension (N-1). The scalar factors of the elementary reflectors (see Further Details).INFOβINFOisINTEGER.= 0:successful exit< 0:ifINFO = -i, the i-th argument had an illegal value.
π Author π
- 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**H
where tau is a complex scalar, and v is a complex 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**H
where tau is a complex scalar, and v is a complex 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 174 of file chetd2.f.
π Author π
Generated automatically by Doxygen for LAPACK from the source code.
Cute footer sign-off, bestie: LAPACK Version 3.12.0, footer path /home/abui...RC/chetd2.f(3) β that's the source/version and date slot as this page shows it, and honestly? Iconic. π«Άπ
π¦ where this page comes from
- opensuse-leap 16.0: lapack-man 3.12.0-160000.2.2 Β· BSD-3-Clause
- opensuse-leap 16.0: lapack-man 3.12.0-160000.2.2 Β· BSD-3-Clause
- opensuse-leap 16.0: lapack-man 3.12.0-160000.2.2 Β· BSD-3-Clause
- opensuse-leap 16.0: lapack-man 3.12.0-160000.2.2 Β· BSD-3-Clause
- π girlified by deepseek-ai/DeepSeek-V4.1-Flash-1017 on : a language model's rewrite of the original, under its terms