CUNT03(3)
π CUNT03(3) β the LAPACK library functions manual, bestie β¨
okay so this is a page out of the LAPACK library functions manual, and the file it lives in is literally:
/home/abuild/rpmbuild/BUILD/lapack-static-3.12.0-build/lapack-3.12.0/TESTING/EIG/cunt03.f
that's the whole NAME situation, make of it what you will π
β¨ SYNOPSIS β¨
Functions/Subroutines
subroutine CUNT03 (rc, mu, mv, n, k, u, ldu, v, ldv, work, lwork, rwork,
result, info)
CUNT03 β that's her, that's the whole subroutine πΈ
π¦ Function/Subroutine Documentation π¦
subroutine CUNT03 (character*( * ) rc, integer mu, integer mv, integer n,
integer k, complex, dimension( ldu, * ) u, integer ldu, complex,
dimension( ldv, * ) v, integer ldv, complex, dimension( * ) work,
integer lwork, real, dimension( * ) rwork, real result, integer info)
CUNT03 again, because she deserves a second entrance, periodt π
π«Ά Purpose π«Ά
no cap, here's what she does:
CUNT03compares two unitary matricesUandVto see if their corresponding rows or columns span the same spaces. The rows are checked ifRC = 'R', and the columns are checked ifRC = 'C'.
RESULT is the maximum of
| V*V' - I | / ( MV ulp ), if RC = 'R', or
| V'*V - I | / ( MV ulp ), if RC = 'C',
and the maximum over rows (or columns) 1 to K of
| U(i) - S*V(i) |/ ( N ulp )
where abs(S) = 1 (chosen to minimize the expression), U(i) is the i-th row (column) of U, and V(i) is the i-th row (column) of V. π
π Parameters π
RCβ literally the mood switch π she's aCHARACTER*1. SetRC = 'R'and the rows ofUandVare the ones being compared. SetRC = 'C'and it's the columns' turn to get compared.MUβ anINTEGER. The number of rows ofUifRC = 'R', and the number of columns ifRC = 'C'. IfMU = 0thenCUNT03does nothing (she's on break π).MUmust be at least zero.MVβ anINTEGER. The number of rows ofVifRC = 'R', and the number of columns ifRC = 'C'. IfMV = 0thenCUNT03does nothing either (double break π).MVmust be at least zero.Nβ anINTEGER. IfRC = 'R', this is the number of columns in the matricesUandV, and ifRC = 'C', it's the number of rows inUandV. IfN = 0thenCUNT03does nothing (third break, she's really not beating the allegations π).Nmust be at least zero.Kβ anINTEGER. The number of rows or columns ofUandVto compare. Constraint era:0 <= K <= max(MU,MV).Uβ aCOMPLEXarray, dimension(LDU,N). The first matrix to compare. IfRC = 'R',UisMUbyN, and ifRC = 'C',UisNbyMU. she's versatile like that πLDUβ anINTEGER. The leading dimension ofU. IfRC = 'R',LDU >= max(1,MU), and ifRC = 'C',LDU >= max(1,N). respect the leading dimension or perish β¨Vβ aCOMPLEXarray, dimension(LDV,N). The second matrix to compare. IfRC = 'R',VisMVbyN, and ifRC = 'C',VisNbyMV. the other half of the duo π¦LDVβ anINTEGER. The leading dimension ofV. IfRC = 'R',LDV >= max(1,MV), and ifRC = 'C',LDV >= max(1,N). same energy, different letter πWORKβ aCOMPLEXarray, dimension(LWORK). that's it, that's the whole description, no notes πLWORKβ anINTEGER. The length of the arrayWORK. For best performance,LWORKshould be at leastN*NifRC = 'C'orM*MifRC = 'R', but the tests will be done even ifLWORKis0. she'll still show up and do the work even with zero workspace, iconic honestly πRWORKβ aREALarray, dimension(max(MV,N)). the real one (literally, she'sREAL) πRESULTβ aREAL. The value computed by the test described above.RESULTis limited to1/ulpto avoid overflow β safety first bestie π«ΆINFOβ anINTEGER. The vibe check report:0indicates a successful exit π-kindicates the k-th parameter had an illegal value π
π Author π
- Univ. of Tennessee
- Univ. of California Berkeley
- Univ. of Colorado Denver
- NAG Ltd.
Definition at line 160 of file cunt03.f.
β Author (yes, again) β
Generated automatically by Doxygen for LAPACK from the source code.
okay that's the whole page, bestie. this blessed documentation came to you courtesy of LAPACK, Version 3.12.0, and the file it was rendered from is /home/abui...IG/cunt03.f(3) β go forth, compare those unitary matrices, and slay πβ¨πΈπ¦π
π¦ 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