TESTING/LIN/zdrvpox.f(3)

📦
version 3.12.1 · 3 versions
, in arch rolling

🦋 TESTING/LIN/zdrvpox.f — like, the whole entire vibe 💅

okay so bestie, buckle up ✨ this is TESTING/LIN/zdrvpox.f from the Library Functions Manual, and it's genuinely iconic. it lives in TESTING/LIN/, it's a Fortran file, and we're about to read the whole thing together, no skimming, no cap 🫶

✨ NAME ✨

TESTING/LIN/zdrvpox.f — that's literally it, that's the name, main character energy from the very first line 👑

🎀 SYNOPSIS 🎀

Functions/Subroutines

ok so here's the actual subroutine, and the way that the argument list is so long… obsessed. anyway, verbatim:

subroutine zdrvpo (dotype, nn, nval, nrhs, thresh, tsterr, nmax, a,
    afac, asav, b, bsav, x, xact, s, work, rwork, nout)

and it's titled ZDRVPOX (yes, with the X, keep up bestie 💖)

🌸 Function/Subroutine Documentation 🌸

subroutine zdrvpo — the full signature, typed out for the girlies 🧚

here's the whole declaration with every single type and dimension, exactly as written, because we do not skip details in this house:

subroutine zdrvpo (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( * ) asav, complex*16,
    dimension( * ) b, complex*16, dimension( * ) bsav, complex*16,
    dimension( * ) x, complex*16, dimension( * ) xact, double precision,
    dimension( * ) s, complex*16, dimension( * ) work, double precision,
    dimension( * ) rwork, integer nout)

ZDRVPOX

💫 Purpose 💫

ZDRVPO tests the driver routines ZPOSV, -SVX, and -SVXX.

so it's a tester — it goes and checks up on ZPOSV, -SVX, and -SVXX and makes sure they're behaving. slay 🔥

Note that this file is used only when the XBLAS are available, otherwise zdrvpo.f defines this subroutine.

read that again bestie — this file only kicks in when the XBLAS are available. if they're not, then zdrvpo.f (no x, notice!) defines this subroutine instead. two files, one job, iykyk 🙈

💅 Parameters 💅

get comfy, there's like twenty of these, and we're doing all of them. every. single. one. periodt 🌈

  • DOTYPE — it's a LOGICAL array, dimension (NTYPES). these are the matrix types used for testing. matrices of type j (for 1 <= j <= NTYPES) get tested if DOTYPE(j) = .TRUE.; if DOTYPE(j) = .FALSE., then type j is just… not used. sitting this one out, respectfully 💀
  • NN — INTEGER. it's the number of values of N contained in the vector NVAL. simple, cute, does the job ✨
  • NVAL — INTEGER array, dimension (NN). these are the values of the matrix dimension N. the whole menu of sizes, basically 🍓
  • NRHS — INTEGER. the number of right hand side vectors to be generated for each linear system. okay rapper name, but also a real count 🎤
  • THRESH — DOUBLE PRECISION. the threshold value for the test ratios. a result gets included in the output file if RESULT >= THRESH. and if you want every test ratio printed? set THRESH = 0. no filter, we're showing everything 💅
  • TSTERR — LOGICAL. flag that indicates whether error exits are to be tested. do we poke it and see what happens? yes/no flag, your call 👑
  • NMAX — INTEGER. the maximum value permitted for N, used in dimensioning the work arrays. big girl numbers only 🔥
  • A — COMPLEX*16 array, dimension (NMAX*NMAX)
  • AFAC — COMPLEX*16 array, dimension (NMAX*NMAX)
  • ASAV — COMPLEX*16 array, dimension (NMAX*NMAX)
  • B — COMPLEX*16 array, dimension (NMAX*NRHS)
  • BSAV — COMPLEX*16 array, dimension (NMAX*NRHS)
  • X — COMPLEX*16 array, dimension (NMAX*NRHS)
  • XACT — COMPLEX*16 array, dimension (NMAX*NRHS)
  • S — DOUBLE PRECISION array, dimension (NMAX)
  • WORK — COMPLEX*16 array, dimension (NMAX*max(3,NRHS)) — note the max(3,NRHS) in there bestie, it's giving "we sized it generously" 🎀
  • RWORK — DOUBLE PRECISION array, dimension (NMAX+2*NRHS)
  • NOUT — INTEGER. the unit number for output. where the gossip gets printed 💬

👑 Author 👑

our legends:

  • Univ. of Tennessee
  • Univ. of California Berkeley
  • Univ. of Colorado Denver
  • NAG Ltd.

(that's the whole squad, don't leave anybody out 🫶)

Definition at line 159 of file zdrvpox.f. — like, exactly there, line 159, no guessing ⭐

🌈 Author (yes, again) 🌈

Generated automatically by Doxygen for LAPACK from the source code.

not me being born from a Doxygen run 😭 machine-made but make it fashion 🦋

and that's the whole page bestie, every flag, every array, every dimension, every line number 💜 i'm literally obsessed with how thorough this was. anyway — this gorgeous little number is from LAPACK, Version 3.12.0, dated right there at the bottom of the source. mwah 💋 see you in the next manpage, xoxo 🎀✨

📦 where this page comes from