TESTING/LIN/zdrvsy_aa.f(3)
π TESTING/LIN/zdrvsy_aa.f
okay so bestie, this is a page straight out of the LAPACK docs β <pink>Library Functions Manual</pink> vibes, and the star of the show is a little Fortran file called TESTING/LIN/zdrvsy_aa.f. she's a tester, she's thorough, and she's about to walk you through it π
β¨ SYNOPSIS β¨
πΈ Functions/Subroutines
subroutine zdrvsy_aa(dotype, nn, nval, nrhs, thresh, tsterr, nmax, a, afac, ainv, b, x, xact, work, rwork, iwork, nout)β ZDRVSY_AA
π¦ Function/Subroutine Documentation π¦
π subroutine zdrvsy_aa
here's the full signature, copied exactly so you can trust it, no cap:
subroutine zdrvsy_aa (logical, dimension( * ) dotype, integer nn, integer,
dimension( * ) nval, integer nrhs, double precision thresh, logical
tsterr, integer nmax, complex*16, dimension( * ) a, complex*16,
dimension( * ) afac, complex*16, dimension( * ) ainv, complex*16,
dimension( * ) b, complex*16, dimension( * ) x, complex*16, dimension( *
) xact, complex*16, dimension( * ) work, double precision, dimension( *
) rwork, integer, dimension( * ) iwork, integer nout)
ZDRVSY_AA π (seriously, that's the whole line)
β Purpose:
!>
!> ZDRVSY_AA tests the driver routine ZSYSV_AA.
!>
periodt. her only job is testing ZSYSV_AA and she does it well π
π Parameters
DOTYPEβDOTYPEisLOGICALarray, dimension(NTYPES). these are the matrix types to be used for testing, bestie. matrices of type j (for1 <= j <= NTYPES) get tested ifDOTYPE(j) = .TRUE.β but ifDOTYPE(j) = .FALSE., then type j is simply not used. no drama, just skipped πNNβNNisINTEGER. it's the number of values ofNcontained in the vectorNVAL. slay πΈNVALβNVALisINTEGERarray, dimension(NN). these are the values of the matrix dimensionN. literally the sizes, iconically πNRHSβNRHSisINTEGER. the number of right hand side vectors to be generated for each linear system. that's a lot of right-hand sides, and honestly? ate β¨THRESHβTHRESHisCOMPLEX*16. it's the threshold value for the test ratios. a result gets included in the output file ifRESULT >= THRESH. and if you want every test ratio printed? useTHRESH = 0. no filter, main character energy π₯TSTERRβTSTERRisLOGICAL. flag that indicates whether error exits are to be tested. π«ΆNMAXβNMAXisINTEGER. the maximum value permitted forN, used in dimensioning the work arrays. she's the ceiling, the limit, the moment πAβAisCOMPLEX*16array, dimension(NMAX*NMAX). πAFACβAFACisCOMPLEX*16array, dimension(NMAX*NMAX). π¦AINVβAINVisCOMPLEX*16array, dimension(NMAX*NMAX). πBβBisCOMPLEX*16array, dimension(NMAX*NRHS). πXβXisCOMPLEX*16array, dimension(NMAX*NRHS). βXACTβXACTisCOMPLEX*16array, dimension(NMAX*NRHS). πWORKβWORKisCOMPLEX*16array, dimension(NMAX*max(2,NRHS)). note themax(2,NRHS), iykyk π§RWORKβRWORKisCOMPLEX*16array, dimension(NMAX+2*NRHS). (yes, the original saysCOMPLEX*16forRWORKβ that's exactly what it says, so that's exactly what we're giving you, no edits π)IWORKβIWORKisINTEGERarray, dimension(2*NMAX). πΈNOUTβNOUTisINTEGER. the unit number for output. where the receipts get printed, fr fr π
π§ Author
- Univ. of Tennessee
- Univ. of California Berkeley
- Univ. of Colorado Denver
- NAG Ltd.
π Definition at line 150 of file zdrvsy_aa.f.
π Author
Generated automatically by Doxygen for LAPACK from the source code. (the robots did this one, not me π)
okay bestie, that's the whole page! this whole thing comes to you from LAPACK, <purple>Version 3.12.0</purple>, signed sealed and delivered π«Άβ¨ go test those drivers, you're gonna do amazing π
π¦ 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