complex16PTcomputational(3)
β¨ complex16PTcomputational(3) β¨
okay bestie, this is the LAPACK manual page for complex16PTcomputational(3) β it's giving complex16 computational functions for PT matrices, and it's so long it had to be split into parts. This is part 1, so buckle up. π
πΈ NAME πΈ
complex16PTcomputational β complex16
π¦ SYNOPSIS π¦
π Functions
subroutine zptcon (N, D, E, ANORM, RCOND, RWORK, INFO)βZPTCONsubroutine zpteqr (COMPZ, N, D, E, Z, LDZ, WORK, INFO)βZPTEQRsubroutine zptrfs (UPLO, N, NRHS, D, E, DF, EF, B, LDB, X, LDX, FERR, BERR, WORK, RWORK, INFO)βZPTRFSsubroutine zpttrf (N, D, E, INFO)βZPTTRFsubroutine zpttrs (UPLO, N, NRHS, D, E, B, LDB, INFO)βZPTTRSsubroutine zptts2 (IUPLO, N, NRHS, D, E, B, LDB)βZPTTS2 solves a tridiagonal system of the form AX=B using the L D LH factorization computed by spttrf.
π Detailed Description π
This is the group of complex16 computational functions for PT matrices.
π Function Documentation π
π subroutine zptcon π
subroutine zptcon (integer N, double precision, dimension( * ) D,
complex*16, dimension( * ) E, double precision ANORM, double precision
RCOND, double precision, dimension( * ) RWORK, integer INFO)
ZPTCON
π― Purpose
okay so ZPTCON computes the reciprocal of the condition number (in the 1-norm) of a complex Hermitian positive definite tridiagonal matrix using the factorization A = L*D*L**H or A = U**H*D*U computed by ZPTTRF.
Norm(inv(A)) is computed by a direct method, and the reciprocal of the condition number is computed as
RCOND = 1 / (ANORM * norm(inv(A))).
π Parameters
NβNisINTEGER. The order of the matrixA.N >= 0.DβDisDOUBLE PRECISIONarray, dimension(N). The n diagonal elements of the diagonal matrixDfrom the factorization ofA, as computed byZPTTRF.EβEisCOMPLEX*16array, dimension(N-1). The(n-1)off-diagonal elements of the unit bidiagonal factorUorLfrom the factorization ofA, as computed byZPTTRF.ANORMβANORMisDOUBLE PRECISION. The 1-norm of the original matrixA.RCONDβRCONDisDOUBLE PRECISION. The reciprocal of the condition number of the matrixA, computed asRCOND = 1/(ANORM * AINVNM), whereAINVNMis the 1-norm ofinv(A)computed in this routine.RWORKβRWORKisDOUBLE PRECISIONarray, dimension(N).INFOβINFOisINTEGER.= 0: successful exit< 0: ifINFO = -i, thei-th argument had an illegal value
π Author
- Univ. of Tennessee
- Univ. of California Berkeley
- Univ. of Colorado Denver
- NAG Ltd.
π Further Details
The method used is described in Nicholas J. Higham, 'Efficient Algorithms for Computing the Condition Number of a Tridiagonal Matrix', SIAM J. Sci. Stat. Comput., Vol. 7, No. 1, January 1986.
π« subroutine zpteqr π«
subroutine zpteqr (character COMPZ, integer N, double precision, dimension(
* ) D, double precision, dimension( * ) E, complex*16, dimension( ldz, *
) Z, integer LDZ, double precision, dimension( * ) WORK, integer INFO)
ZPTEQR
π― Purpose
okay so ZPTEQR computes all eigenvalues and, optionally, eigenvectors of a symmetric positive definite tridiagonal matrix by first factoring the matrix using DPTTRF and then calling ZBDSQR to compute the singular values of the bidiagonal factor.
This routine computes the eigenvalues of the positive definite tridiagonal matrix to high relative accuracy. This means that if the eigenvalues range over many orders of magnitude in size, then the small eigenvalues and corresponding eigenvectors will be computed more accurately than, for example, with the standard QR method.
The eigenvectors of a full or band positive definite Hermitian matrix can also be found if ZHETRD, ZHPTRD, or ZHBTRD has been used to reduce this matrix to tridiagonal form. (The reduction to tridiagonal form, however, may preclude the possibility of obtaining high relative accuracy in the small eigenvalues of the original matrix, if these eigenvalues range over many orders of magnitude.)
π Parameters
COMPZβCOMPZisCHARACTER*1= 'N': Compute eigenvalues only.= 'V': Compute eigenvectors of original Hermitian matrix also. ArrayZcontains the unitary matrix used to reduce the original matrix to tridiagonal form.= 'I': Compute eigenvectors of tridiagonal matrix also.
NβNisINTEGER. The order of the matrix.N >= 0.DβDisDOUBLE PRECISIONarray, dimension(N). On entry, the n diagonal elements of the tridiagonal matrix. On normal exit,Dcontains the eigenvalues, in descending order.EβEisDOUBLE PRECISIONarray, dimension(N-1). On entry, the(n-1)subdiagonal elements of the tridiagonal matrix. On exit,Ehas been destroyed.ZβZisCOMPLEX*16array, dimension(LDZ, N). On entry, ifCOMPZ = 'V', the unitary matrix used in the reduction to tridiagonal form. On exit, ifCOMPZ = 'V', the orthonormal eigenvectors of the original Hermitian matrix; ifCOMPZ = 'I', the orthonormal eigenvectors of the tridiagonal matrix. IfINFO > 0on exit,Zcontains the eigenvectors associated with only the stored eigenvalues. IfCOMPZ = 'N', thenZis not referenced.LDZβLDZisINTEGER. The leading dimension of the arrayZ.LDZ >= 1, and ifCOMPZ = 'V'or'I',LDZ >= max(1,N).WORKβWORKisDOUBLE PRECISIONarray, dimension(4*N).INFOβINFOisINTEGER.= 0: successful exit.< 0: ifINFO = -i, thei-th argument had an illegal value.> 0: ifINFO = i, andiis:<= Nthe Cholesky factorization of the matrix could not be performed because thei-th principal minor was not positive definite.> Nthe SVD algorithm failed to converge; ifINFO = N+i,ioff-diagonal elements of the bidiagonal factor did not converge to zero.
π Author
- Univ. of Tennessee
- Univ. of California Berkeley
- Univ. of Colorado Denver
- NAG Ltd.
π subroutine zptrfs π
subroutine zptrfs (character UPLO, integer N, integer NRHS, double
precision, dimension( * ) D, complex*16, dimension( * ) E, double
precision, dimension( * ) DF, complex*16, dimension( * ) EF, complex*16,
dimension( ldb, * ) B, integer LDB, complex*16, dimension( ldx, * ) X,
integer LDX, double precision, dimension( * ) FERR, double precision,
dimension( * ) BERR, complex*16, dimension( * ) WORK, double precision,
dimension( * ) RWORK, integer INFO)
ZPTRFS
π― Purpose
okay so ZPTRFS improves the computed solution to a system of linear equations when the coefficient matrix is Hermitian positive definite and tridiagonal, and provides error bounds and backward error estimates for the solution.
π Parameters
UPLOβUPLOisCHARACTER*1. Specifies whether the superdiagonal or the subdiagonal of the tridiagonal matrixAis stored and the form of the factorization:= 'U':Eis the superdiagonal ofA, andA = U**H*D*U;= 'L':Eis the subdiagonal ofA, andA = L*D*L**H.- (The two forms are equivalent if
Ais real.)
NβNisINTEGER. The order of the matrixA.N >= 0.NRHSβNRHSisINTEGER. The number of right hand sides, i.e., the number of columns of the matrixB.NRHS >= 0.DβDisDOUBLE PRECISIONarray, dimension(N). The n real diagonal elements of the tridiagonal matrixA.EβEisCOMPLEX*16array, dimension(N-1). The(n-1)off-diagonal elements of the tridiagonal matrixA(seeUPLO).DFβDFisDOUBLE PRECISIONarray, dimension(N). The n diagonal elements of the diagonal matrixDfrom the factorization computed byZPTTRF.EFβEFisCOMPLEX*16array, dimension(N-1). The(n-1)off-diagonal elements of the unit bidiagonal factorUorLfrom the factorization computed byZPTTRF(seeUPLO).BβBisCOMPLEX*16array, dimension(LDB,NRHS). The right hand side matrixB.LDBβLDBisINTEGER. The leading dimension of the arrayB.LDB >= max(1,N).XβXisCOMPLEX*16array, dimension(LDX,NRHS). On entry, the solution matrixX, as computed byZPTTRS. On exit, the improved solution matrixX.LDXβLDXisINTEGER. The leading dimension of the arrayX.LDX >= max(1,N).FERRβFERRisDOUBLE PRECISIONarray, dimension(NRHS). The forward error bound for each solution vectorX(j)(thej-th column of the solution matrixX). IfXTRUEis the true solution corresponding toX(j),FERR(j)is an estimated upper bound for the magnitude of the largest element in(X(j) - XTRUE)divided by the magnitude of the largest element inX(j).BERRβBERRisDOUBLE PRECISIONarray, dimension(NRHS). The componentwise relative backward error of each solution vectorX(j)(i.e., the smallest relative change in any element ofAorBthat makesX(j)an exact solution).WORKβWORKisCOMPLEX*16array, dimension(N).RWORKβRWORKisDOUBLE PRECISIONarray, dimension(N).INFOβINFOisINTEGER.= 0: successful exit< 0: ifINFO = -i, thei-th argument had an illegal value
βοΈ Internal Parameters
ITMAX is the maximum number of steps of iterative refinement.
π Author
- Univ. of Tennessee
- Univ. of California Berkeley
- Univ. of Colorado Denver
- NAG Ltd.
β¨ zpttrf β aka ZPTTRF β¨
subroutine zpttrf (integer N, double precision, dimension( * ) D,
complex*16, dimension( * ) E, integer INFO)
ZPTTRF
Purpose:
Okay bestie, listen: ZPTTRF computes the L*D*L**H factorization of a complex Hermitian positive definite tridiagonal matrix A. And if that wasn't enough, the factorization may also be regarded as having the form A = U**H *D*U. It's giving duality, it's giving range, periodt. π
Parameters
NβNisINTEGER. The order of the matrixA.N >= 0.DβDisDOUBLE PRECISIONarray, dimension(N). On entry, thendiagonal elements of the tridiagonal matrixA. On exit, thendiagonal elements of the diagonal matrixDfrom theL*D*L**Hfactorization ofA.EβEisCOMPLEX*16array, dimension(N-1). On entry, the(n-1)subdiagonal elements of the tridiagonal matrixA. On exit, the(n-1)subdiagonal elements of the unit bidiagonal factorLfrom theL*D*L**Hfactorization ofA.Ecan also be regarded as the superdiagonal of the unit bidiagonal factorUfrom theU**H *D*Ufactorization ofA.INFOβINFOisINTEGER.= 0: successful exit< 0: ifINFO = -k, the k-th argument had an illegal value> 0: ifINFO = k, the leading minor of order k is not positive definite; ifk < N, the factorization could not be completed, while ifk = N, the factorization was completed, butD(N) <= 0.
Lowkey ifINFOcomes back positive, that leading minor said "not today." Ifk < N, the factorization could not be completed. Ifk = N, it finished butD(N) <= 0. No cap.
Author
- Univ. of Tennessee
- Univ. of California Berkeley
- Univ. of Colorado Denver
- NAG Ltd.
β¨ zpttrs β aka ZPTTRS β¨
subroutine zpttrs (character UPLO, integer N, integer NRHS, double
precision, dimension( * ) D, complex*16, dimension( * ) E, complex*16,
dimension( ldb, * ) B, integer LDB, integer INFO)
ZPTTRS
Purpose:
ZPTTRS solves a tridiagonal system of the form
A * X = B
using the factorization A = U**H *D* U or A = L*D*L**H computed by ZPTTRF. D is a diagonal matrix specified in the vector D, U (or L) is a unit bidiagonal matrix whose superdiagonal (subdiagonal) is specified in the vector E, and X and B are N by NRHS matrices. Bestie, it's literally solving for X. Slay. π
Parameters
UPLOβUPLOisCHARACTER*1. Specifies the form of the factorization and whether the vectorEis the superdiagonal of the upper bidiagonal factorUor the subdiagonal of the lower bidiagonal factorL.= 'U':A = U**H *D*U,Eis the superdiagonal ofU= 'L':A = L*D*L**H,Eis the subdiagonal ofL
NβNisINTEGER. The order of the tridiagonal matrixA.N >= 0.NRHSβNRHSisINTEGER. The number of right hand sides, i.e., the number of columns of the matrixB.NRHS >= 0.DβDisDOUBLE PRECISIONarray, dimension(N). Thendiagonal elements of the diagonal matrixDfrom the factorizationA = U**H *D*UorA = L*D*L**H.EβEisCOMPLEX*16array, dimension(N-1). IfUPLO = 'U', the(n-1)superdiagonal elements of the unit bidiagonal factorUfrom the factorizationA = U**H*D*U. IfUPLO = 'L', the(n-1)subdiagonal elements of the unit bidiagonal factorLfrom the factorizationA = L*D*L**H.BβBisCOMPLEX*16array, dimension(LDB,NRHS). On entry, the right hand side vectorsBfor the system of linear equations. On exit, the solution vectors,X.LDBβLDBisINTEGER. The leading dimension of the arrayB.LDB >= max(1,N).INFOβINFOisINTEGER.= 0: successful exit< 0: ifINFO = -k, the k-th argument had an illegal value
Author
- Univ. of Tennessee
- Univ. of California Berkeley
- Univ. of Colorado Denver
- NAG Ltd.
β¨ zptts2 β aka ZPTTS2 β¨
subroutine zptts2 (integer IUPLO, integer N, integer NRHS, double precision,
dimension( * ) D, complex*16, dimension( * ) E, complex*16, dimension(
ldb, * ) B, integer LDB)
ZPTTS2 solves a tridiagonal system of the form AX=B using the L D LH factorization computed by spttrf.
Purpose:
ZPTTS2 solves a tridiagonal system of the form
A * X = B
using the factorization A = U**H *D*U or A = L*D*L**H computed by ZPTTRF. D is a diagonal matrix specified in the vector D, U (or L) is a unit bidiagonal matrix whose superdiagonal (subdiagonal) is specified in the vector E, and X and B are N by NRHS matrices. Same energy as ZPTTRS, but this one's on a different signature, iykyk. πΈ
Parameters
IUPLOβIUPLOisINTEGER. Specifies the form of the factorization and whether the vectorEis the superdiagonal of the upper bidiagonal factorUor the subdiagonal of the lower bidiagonal factorL.= 1:A = U**H *D*U,Eis the superdiagonal ofU= 0:A = L*D*L**H,Eis the subdiagonal ofL
NβNisINTEGER. The order of the tridiagonal matrixA.N >= 0.NRHSβNRHSisINTEGER. The number of right hand sides, i.e., the number of columns of the matrixB.NRHS >= 0.DβDisDOUBLE PRECISIONarray, dimension(N). Thendiagonal elements of the diagonal matrixDfrom the factorizationA = U**H *D*UorA = L*D*L**H.EβEisCOMPLEX*16array, dimension(N-1). IfIUPLO = 1, the(n-1)superdiagonal elements of the unit bidiagonal factorUfrom the factorizationA = U**H*D*U. IfIUPLO = 0, the(n-1)subdiagonal elements of the unit bidiagonal factorLfrom the factorizationA = L*D*L**H.BβBisCOMPLEX*16array, dimension(LDB,NRHS). On entry, the right hand side vectorsBfor the system of linear equations. On exit, the solution vectors,X.LDBβLDBisINTEGER. The leading dimension of the arrayB.LDB >= max(1,N).
Author
- Univ. of Tennessee
- Univ. of California Berkeley
- Univ. of Colorado Denver
- NAG Ltd.
β¨ Author β¨
Generated automatically by Doxygen for LAPACK from the source code.
Okay bestie, that's the whole page. It's LAPACK version 3.11.0, dated Sun Nov 27 2022, and the page is complex16PTcomputational(3). Go off, solve those tridiagonal systems, and remember: positive definite or positive bye-finite. πβ¨π¦ππ
π¦ where this page comes from
- debian bookworm: liblapack-doc 3.11.0-2 Β· BSD-3-Clause
- π girlified by deepseek-ai/DeepSeek-V4.1-Flash on : a language model's rewrite of the original, under its terms