/home/abui...RC/chpsv.f(3)
okay bestie, welcome to the LAPACK Library Functions Manual β today's absolute main character is chpsv.f π
β¨
πΈ NAME πΈ
The NAME here is literally this whole source path, no cutesy shortening, periodt:
/home/abuild/rpmbuild/BUILD/lapack-static-3.12.0-build/lapack-3.12.0/SRC/chpsv.f
β¨ SYNOPSIS β¨
π¦ Functions/Subroutines π¦
subroutine CHPSV (uplo, n, nrhs, ap, ipiv, b, ldb, info)
CHPSV computes the solution to system of linear equations A * X = B
for OTHER matrices
π Function/Subroutine Documentation π
Here's the full signature, bestie β copy it exactly, no vibes-based renaming:
subroutine CHPSV (character uplo, integer n, integer nrhs, complex,
dimension( * ) ap, integer, dimension( * ) ipiv, complex, dimension(
ldb, * ) b, integer ldb, integer info)
CHPSV computes the solution to system of linear equations A * X = B for OTHER matrices. Iconic. π
π― Purpose π―
CHPSV computes the solution to a complex system of linear equations
A * X = B,
where A is an N-by-N Hermitian matrix stored in packed format and X and B are N-by-NRHS matrices. Slay.
The diagonal pivoting method is used to factor A as
A = U * D * U**H, if UPLO = 'U', or
A = L * D * L**H, if UPLO = 'L',
where U (or L) is a product of permutation and unit upper (lower) triangular matrices, D is Hermitian and block diagonal with 1-by-1 and 2-by-2 diagonal blocks. The factored form of A is then used to solve the system of equations A * X = B. That's the whole arc, no cap. π¦
π§ Parameters π§
UPLOβUPLOisCHARACTER*1.= 'U': Upper triangle ofAis stored;= 'L': Lower triangle ofAis stored. Choose your fighter πNβNisINTEGER. The number of linear equations, i.e., the order of the matrixA.N >= 0. Respect the bound, bestie.NRHSβNRHSisINTEGER. The number of right hand sides, i.e., the number of columns of the matrixB.NRHS >= 0.APβAPisCOMPLEXarray, dimension(N*(N+1)/2). On entry, the upper or lower triangle of the Hermitian matrixA, packed columnwise in a linear array. Thej-th column ofAis stored in the arrayAPas follows: ifUPLO = 'U',AP(i + (j-1)*j/2) = A(i,j)for1<=i<=j; ifUPLO = 'L',AP(i + (j-1)*(2n-j)/2) = A(i,j)forj<=i<=n. See below for further details. π On exit, the block diagonal matrixDand the multipliers used to obtain the factorUorLfrom the factorizationA = U*D*U**HorA = L*D*L**Has computed byCHPTRF, stored as a packed triangular matrix in the same storage format asA. Same energy, different contents.IPIVβIPIVisINTEGERarray, dimension(N). Details of the interchanges and the block structure ofD, as determined byCHPTRF. IfIPIV(k) > 0, then rows and columnskandIPIV(k)were interchanged, andD(k,k)is a 1-by-1 diagonal block. IfUPLO = 'U'andIPIV(k) = IPIV(k-1) < 0, then rows and columnsk-1and-IPIV(k)were interchanged andD(k-1:k,k-1:k)is a 2-by-2 diagonal block. IfUPLO = 'L'andIPIV(k) = IPIV(k+1) < 0, then rows and columnsk+1and-IPIV(k)were interchanged andD(k:k+1,k:k+1)is a 2-by-2 diagonal block. It's giving very detailed swap lore πBβBisCOMPLEXarray, dimension(LDB,NRHS). On entry, theN-by-NRHSright hand side matrixB. On exit, ifINFO = 0, theN-by-NRHSsolution matrixX. Glow-up complete β¨LDBβLDBisINTEGER. The leading dimension of the arrayB.LDB >= max(1,N). Do not play with this one.INFOβINFOisINTEGER.= 0: successful exit.< 0: ifINFO = -i, thei-th argument had an illegal value.> 0: ifINFO = i,D(i,i)is exactly zero. The factorization has been completed, but the block diagonal matrixDis exactly singular, so the solution could not be computed. That's the dramatic plot twist π
π Author π
- Univ. of Tennessee
- Univ. of California Berkeley
- Univ. of Colorado Denver
- NAG Ltd.
π Further Details π
The packed storage scheme is illustrated by the following example when N = 4, UPLO = 'U':
Two-dimensional storage of the Hermitian matrix A:
a11 a12 a13 a14
a22 a23 a24
a33 a34 (aij = conjg(aji))
a44
Packed storage of the upper triangle of A:
AP = [ a11, a12, a22, a13, a23, a33, a14, a24, a34, a44 ]
Packed and cute. No wasted space, we love a storage queen π
Definition at line 161 of file chpsv.f.
π Author π
Generated automatically by Doxygen for LAPACK from the source code. The robots wrote this one, bestie π€π
Cute sign-off time: this page's footer says LAPACK Version 3.12.0 and points back to /home/abui...RC/chpsv.f(3); there was no date line in the footer I got, so I'm not inventing one π«Άπ
π¦ 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