ZUNMR3(3)
okay so bestie, welcome to zunmr3.f(3) from the Library Functions Manual β this whole page is about one Fortran subroutine and it's lowkey iconic. Buckle up, we're getting into the LAPACK tea. π
β¨
π NAME π
/home/abuild/rpmbuild/BUILD/lapack-static-3.12.0-build/lapack-3.12.0/SRC/zunmr3.f β yep, that entire path is the NAME. That's the file, periodt. π«Ά
β¨ SYNOPSIS β¨
π Functions/Subroutines π
subroutine ZUNMR3 (side, trans, m, n, k, l, a, lda, tau, c, ldc, work,
info)
ZUNMR3 multiplies a general matrix by the unitary matrix from a RZ factorization determined by ctzrzf (unblocked algorithm). π«
π¦ Function/Subroutine Documentation π¦
subroutine ZUNMR3 (character side, character trans, integer m, integer n,
integer k, integer l, complex*16, dimension( lda, * ) a, integer lda,
complex*16, dimension( * ) tau, complex*16, dimension( ldc, * ) c,
integer ldc, complex*16, dimension( * ) work, integer info)
ZUNMR3 multiplies a general matrix by the unitary matrix from a RZ factorization determined by ctzrzf (unblocked algorithm). No cap, that's literally what it does. π¦
π Purpose π
ZUNMR3 overwrites the general complex m by n matrix C with:
Q * C if SIDE = 'L' and TRANS = 'N', or
Q**H* C if SIDE = 'L' and TRANS = 'C', or
C * Q if SIDE = 'R' and TRANS = 'N', or
C * Q**H if SIDE = 'R' and TRANS = 'C',
where Q is a complex unitary matrix defined as the product of k elementary reflectors:
Q = H(1) H(2) . . . H(k)
as returned by ZTZRZF. Q is of order m if SIDE = 'L' and of order n if SIDE = 'R'. β¨
π Parameters π
SIDEβSIDE is CHARACTER*1= 'L': apply Q or Q**H from the Left= 'R': apply Q or Q**H from the Right
TRANSβTRANS is CHARACTER*1= 'N': apply Q (No transpose)= 'C': apply Q**H (Conjugate transpose)
MβM is INTEGERThe number of rows of the matrix C.M >= 0.NβN is INTEGERThe number of columns of the matrix C.N >= 0.KβK is INTEGERThe number of elementary reflectors whose product defines the matrix Q.- If
SIDE = 'L',M >= K >= 0; - if
SIDE = 'R',N >= K >= 0.
- If
LβL is INTEGERThe number of columns of the matrix A containing the meaningful part of the Householder reflectors.- If
SIDE = 'L',M >= L >= 0, ifSIDE = 'R',N >= L >= 0.
- If
AβA is COMPLEX*16 array, dimension(LDA,M)ifSIDE = 'L',(LDA,N)ifSIDE = 'R'The i-th row must contain the vector which defines the elementary reflectorH(i), fori = 1,2,...,k, as returned byZTZRZFin the last k rows of its array argument A. A is modified by the routine but restored on exit.
LDAβLDA is INTEGERThe leading dimension of the array A.LDA >= max(1,K).TAUβTAU is COMPLEX*16 array, dimension (K)TAU(i)must contain the scalar factor of the elementary reflectorH(i), as returned byZTZRZF.CβC is COMPLEX*16 array, dimension (LDC,N)On entry, the m-by-n matrix C. On exit, C is overwritten byQ*CorQ**H*CorC*Q**HorC*Q.LDCβLDC is INTEGERThe leading dimension of the array C.LDC >= max(1,M).WORKβWORK is COMPLEX*16 array, dimension(N)ifSIDE = 'L',(M)ifSIDE = 'R'
INFOβINFO is INTEGER= 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.
π§ Contributors π§
A. Petitet, Computer Science Dept., Univ. of Tenn., Knoxville, USA
π Further Details π
The source has literally just an empty !> here, bestie β no extra details. π«Ά
Definition at line 176 of file zunmr3.f.
π Author π
Generated automatically by Doxygen for LAPACK from the source code.
okay that's the whole page, bestie. Footer tea: LAPACK Version 3.12.0, and the file is /home/abui...RC/zunmr3.f(3). mwah πβ¨
π¦ 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