TESTING/LIN/zchkq3.f(3)
π TESTING/LIN/zchkq3.f(3)
okay so bestie, welcome to TESTING/LIN/zchkq3.f β yes, it's a Fortran file, yes it's from the LAPACK manual (Version 3.12.0, if we're being precise π), and yes it's literally here to test ZGEQP3, no cap.
β¨ NAME β¨
TESTING/LIN/zchkq3.f β the whole icon, the whole file, the assignment π
πΈ SYNOPSIS πΈ
Functions/Subroutines
subroutine zchkq3 (dotype, nm, mval, nn, nval, nnb, nbval, nxval,
thresh, a, copya, s, tau, work, rwork, iwork, nout)
ZCHKQ3 β that's the name, say it with your chest π«Ά
Function/Subroutine Documentation
so the full declaration is giving very much "here's every single argument with its type and dimension," and we are NOT skipping any of it:
subroutine zchkq3 (logical, dimension( * ) dotype, integer nm, integer,
dimension( * ) mval, integer nn, integer, dimension( * ) nval, integer
nnb, integer, dimension( * ) nbval, integer, dimension( * ) nxval,
double precision thresh, complex*16, dimension( * ) a, complex*16,
dimension( * ) copya, double precision, dimension( * ) s, complex*16,
dimension( * ) tau, complex*16, dimension( * ) work, double precision,
dimension( * ) rwork, integer, dimension( * ) iwork, integer nout)
ZCHKQ3 π«
π Purpose π
okay so the entire point of this subroutine, straight up:
!>
!> ZCHKQ3 tests ZGEQP3.
!>
that's it. that's the purpose. it tests ZGEQP3. iconic behaviour, honestly β¨
π¦ Parameters π¦
every single one, in order, no skips, periodt:
DOTYPEβDOTYPE is LOGICAL array, dimension (NTYPES). it's the vibe check for which matrix types get used: matrices of typej(for1 <= j <= NTYPES) are used for testing ifDOTYPE(j) = .TRUE.; ifDOTYPE(j) = .FALSE., then typejis not used πNMβNM is INTEGER. the number of values ofMcontained in the vectorMVAL.MVALβMVAL is INTEGER array, dimension (NM). the values of the matrix row dimensionMπNNβNN is INTEGER. the number of values ofNcontained in the vectorNVAL.NVALβNVAL is INTEGER array, dimension (NN). the values of the matrix column dimensionNπΈNNBβNNB is INTEGER. the number of values ofNBandNXcontained in the vectorsNBVALandNXVAL. the blocking parameters are used in pairs(NB,NX)β it's giving couples costume, ngl π«ΆNBVALβNBVAL is INTEGER array, dimension (NNB). the values of the blocksizeNB.NXVALβNXVAL is INTEGER array, dimension (NNB). the values of the crossover pointNXβTHRESHβTHRESH is DOUBLE PRECISION. the threshold value for the test ratios. a result is included in the output file ifRESULT >= THRESH. to have every test ratio printed, useTHRESH = 0π₯AβA is COMPLEX*16 array, dimension (MMAX*NMAX)β whereMMAXis the maximum value ofMinMVALandNMAXis the maximum value ofNinNVAL.COPYAβCOPYA is COMPLEX*16 array, dimension (MMAX*NMAX)πSβS is DOUBLE PRECISION array, dimension(min(MMAX,NMAX))β¨TAUβTAU is COMPLEX*16 array, dimension (MMAX)πWORKβWORK is COMPLEX*16 array, dimension(max(M*max(M,N) + 4*min(M,N) + max(M,N)))β yes that's the whole thing, copy it exactly, do not improvise πRWORKβRWORK is DOUBLE PRECISION array, dimension (4*NMAX)πIWORKβIWORK is INTEGER array, dimension (2*NMAX)πNOUTβNOUT is INTEGER. the unit number for output. that's where the tea gets printed π
π Author π
- Univ. of Tennessee
- Univ. of California Berkeley
- Univ. of Colorado Denver
- NAG Ltd.
π Definition π
Definition at line 155 of file zchkq3.f π
π Author (again, the meta one) π
Generated automatically by Doxygen for LAPACK from the source code. yes, the robot wrote the manpage, we're just living in it π€β¨
fr fr bestie, keep the types and dimensions exactly as written β Fortran does not play about that π
that's the whole page! mwah π β with love from LAPACK Version 3.12.0, and the source is literally the TESTING/LIN/zchkq3.f(3) page itself. slay, go test ZGEQP3 π¦π
π¦ 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