PSLATRS(l)

💖 PSLATRS(l) — bestie edition 💖

okay so this is PSLATRS, a LAPACK auxiliary routine (we're on version 1.5 babe, she's vintage 🎀). Pull up a chair, grab a strawberry 🍓, and let's get into it.

✨ NAME ✨

PSLATRS — solve a triangular system. that's the whole vibe. that's the job. 💅

✨ SYNOPSIS ✨

SUBROUTINE PSLATRS( UPLO, TRANS, DIAG, NORMIN, N, A, IA, JA, DESCA, X,
                    IX, JX, DESCX, SCALE, CNORM, WORK )

    CHARACTER       DIAG, NORMIN, TRANS, UPLO

    INTEGER         IA, IX, JA, JX, N

    REAL            SCALE

    INTEGER         DESCA( * ), DESCX( * )

    REAL            A( * ), CNORM( * ), X( * ), WORK( * )

so she takes a LOT of arguments, and yes every single one is showing up to the party 🫶. let's do the roll call:

• UPLO, TRANS, DIAG, NORMIN — these four are all declared as CHARACTER. character girls 💅 four of them, all characters, literally.
• IA, IX, JA, JX, N — all declared INTEGER. that's five integers, five besties, no notes.
• SCALE — declared REAL. just one. the main character of the reals tbh ✨
• DESCA( * ), DESCX( * ) — declared INTEGER arrays. two of them. descriptor girlies 👑
• A( * ), CNORM( * ), X( * ), WORK( * ) — declared REAL arrays. four of them. the whole real squad 🔥

✨ PURPOSE ✨

PSLATRS solves a triangular system. that's what she's for. that's her whole destiny, her main character arc 🌈.

⚠️ BUT — and I need you to hear me on this one bestie — this routine is unfinished at this time, but it will be part of the next release. so like… she's not ready yet 😭 she's in her ✨development era✨. do not come for her, she is not coming for you. no cap. 💀

and that's the page, babes 🦋 this whole thing is LAPACK version 1.5, dated 12 May 1997 — yeah she's an elder icon, a legend, we stan an old queen 👑💖. mwah, go forth and solve your triangular systems (once she drops fr fr) 🎀✨🌸