SRC/DEPRECATED/zgelsx.f(3)
π NAME π
SRC/DEPRECATED/zgelsx.f β that's the file, bestie. This is its page in the Library Functions Manual, and it's all about the deprecated LAPACK routine zgelsx. π«Ά
β¨ SYNOPSIS β¨
πΈ Functions/Subroutines πΈ
subroutine zgelsx (m, n, nrhs, a, lda, b, ldb, jpvt, rcond, rank, work,
rwork, info)
ZGELSX solves overdetermined or underdetermined systems for GE
matrices
π Function/Subroutine Documentation π
π subroutine zgelsx (integer m, integer n, integer nrhs, complex*16, dimension( lda, * ) a, integer lda, complex*16, dimension( ldb, * ) b, integer ldb, integer, dimension( * ) jpvt, double precision rcond, integer rank, complex*16, dimension( * ) work, double precision, dimension( * ) rwork, integer info)
subroutine zgelsx (integer m, integer n, integer nrhs, complex*16,
dimension( lda, * ) a, integer lda, complex*16, dimension( ldb, * ) b,
integer ldb, integer, dimension( * ) jpvt, double precision rcond,
integer rank, complex*16, dimension( * ) work, double precision,
dimension( * ) rwork, integer info)
ZGELSX solves overdetermined or underdetermined systems for GE matrices β that's the whole vibe of this icon. π
π Purpose π
π¨ Deprecated alert, bestie: This routine is deprecated and has been replaced by routine ZGELSY. So likeβ¦ know her, respect her, but maybe use the replacement for new stuff.
ZGELSX computes the minimum-norm solution to a complex linear least squares problem:
minimize || A * X - B ||
using a complete orthogonal factorization of A. A is an M-by-N matrix which may be rank-deficient. No cap. β¨
Several right hand side vectors b and solution vectors x can be handled in a single call; they are stored as the columns of the M-by-NRHS right hand side matrix B and the N-by-NRHS solution matrix X. That's a lot of columns but she's built for it. π«Ά
The routine first computes a QR factorization with column pivoting:
A * P = Q * [ R11 R12 ]
[ 0 R22 ]
with R11 defined as the largest leading submatrix whose estimated condition number is less than 1/RCOND. The order of R11, RANK, is the effective rank of A. π
Then, R22 is considered to be negligible, and R12 is annihilated by unitary transformations from the right, arriving at the complete orthogonal factorization:
A * P = Q * [ T11 0 ] * Z
[ 0 0 ]
The minimum-norm solution is then
X = P * Z**H [ inv(T11)*Q1**H*B ]
[ 0 ]
where Q1 consists of the first RANK columns of Q. The math is mathing. π
πΈ Parameters πΈ
MβMisINTEGER; the number of rows of the matrixA.M >= 0. π«ΆNβNisINTEGER; the number of columns of the matrixA.N >= 0. β¨NRHSβNRHSisINTEGER; the number of right hand sides, i.e., the number of columns of matricesBandX.NRHS >= 0. πAβAisCOMPLEX*16array, dimension(LDA,N). On entry, theM-by-NmatrixA. On exit,Ahas been overwritten by details of its complete orthogonal factorization. πLDAβLDAisINTEGER; the leading dimension of the arrayA.LDA >= max(1,M). πBβBisCOMPLEX*16array, dimension(LDB,NRHS). On entry, theM-by-NRHSright hand side matrixB. On exit, theN-by-NRHSsolution matrixX. Ifm >= nandRANK = n, the residual sum-of-squares for the solution in thei-th column is given by the sum of squares of elementsN+1:Min that column. π¦LDBβLDBisINTEGER; the leading dimension of the arrayB.LDB >= max(1,M,N). πJPVTβJPVTisINTEGERarray, dimension(N). On entry, ifJPVT(i) .ne. 0, thei-th column ofAis an initial column, otherwise it is a free column. Before the QR factorization ofA, all initial columns are permuted to the leading positions; only the remaining free columns are moved as a result of column pivoting during the factorization. On exit, ifJPVT(i) = k, then thei-th column ofA*Pwas thek-th column ofA. π§RCONDβRCONDisDOUBLE PRECISION.RCONDis used to determine the effective rank ofA, which is defined as the order of the largest leading triangular submatrixR11in the QR factorization with pivoting ofA, whose estimated condition number< 1/RCOND. π₯RANKβRANKisINTEGER; the effective rank ofA, i.e., the order of the submatrixR11. This is the same as the order of the submatrixT11in the complete orthogonal factorization ofA. πWORKβWORKisCOMPLEX*16array, dimension(min(M,N) + max( N, 2*min(M,N)+NRHS )). βRWORKβRWORKisDOUBLE PRECISIONarray, dimension(2*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.
Definition at line 182 of file zgelsx.f. π
π Author π
Generated automatically by Doxygen for LAPACK from the source code. π€π
π That's the whole page, bestie! Source/version: SRC/DEPRECATED/zgelsx.f(3) and LAPACK Version 3.12.0. Date? The footer doesn't list one, so I'm not inventing a date β no cap, periodt. πβ¨
π¦ 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