BLAS/SRC/dspr.f(3)
π BLAS/SRC/dspr.f π
okay bestie, welcome to BLAS/SRC/dspr.f β the LAPACK manual page for dspr, and yes she is serving symmetric rank-1 realness, no cap. sit down, grab a boba, we're doing math π
β¨ SYNOPSIS β¨
Functions/Subroutines
subroutine dspr (uplo, n, alpha, x, incx, ap)
DSPR
π¦ Function/Subroutine Documentation π¦
subroutine dspr (character uplo, integer n, double precision alpha, double
precision, dimension(*) x, integer incx, double precision, dimension(*)
ap)
DSPR</purpose> β that's literally her name, that's the whole vibe.
π Purpose π
so DSPR performs the symmetric rank 1 operation, and the way it's written is:
A := alpha*x*x**T + A,
where alpha is a real scalar, x is an n element vector and A is an n by n symmetric matrix, supplied in packed form. she's doing the most with the least storage, iconic behavior fr fr πΈ
π Parameters π
UPLOβUPLOisCHARACTER*1. on entry,UPLOspecifies whether the upper or lower triangular part of the matrixAis supplied in the packed arrayAPas follows:UPLO = 'U' or 'u'β the upper triangular part ofAis supplied inAP.UPLO = 'L' or 'l'β the lower triangular part ofAis supplied inAP.
NβNisINTEGER. on entry,Nspecifies the order of the matrixA.Nmust be at least zero. (zero is allowed bestie, she's not picky, she just won't have much to do β¨)ALPHAβALPHAisDOUBLE PRECISION.on entry,ALPHAspecifies the scalaralpha. it's giving scaling factor energy πXβXisDOUBLE PRECISIONarray, dimension at least( 1 + ( n - 1 )*abs( INCX ) ). before entry, the incremented arrayXmust contain thenelement vectorx. yes theabsis doing real work there, respect her π«ΆINCXβINCXisINTEGER. on entry,INCXspecifies the increment for the elements ofX.INCXmust not be zero. like, hard no, zero is not it πAPβAPisDOUBLE PRECISIONarray, dimension at least( ( n*( n + 1 ) )/2 ).- before entry with
UPLO = 'U' or 'u', the arrayAPmust contain the upper triangular part of the symmetric matrix packed sequentially, column by column, so thatAP( 1 )containsa( 1, 1 ),AP( 2 )andAP( 3 )containa( 1, 2 )anda( 2, 2 )respectively, and so on. on exit, the arrayAPis overwritten by the upper triangular part of the updated matrix. - before entry with
UPLO = 'L' or 'l', the arrayAPmust contain the lower triangular part of the symmetric matrix packed sequentially, column by column, so thatAP( 1 )containsa( 1, 1 ),AP( 2 )andAP( 3 )containa( 2, 1 )anda( 3, 1 )respectively, and so on. on exit, the arrayAPis overwritten by the lower triangular part of the updated matrix.
- before entry with
π¨ bestie listen β AP gets overwritten on exit. if you needed the original matrix, that's on you, she told you twice. no takebacks. π
π Author π
- Univ. of Tennessee
- Univ. of California Berkeley
- Univ. of Colorado Denver
- NAG Ltd.
look at that group project actually getting finished, we love to see it π₯Ή
β Further Details β
- Level 2 Blas routine.
-- Written on 22-October-1986.- Jack Dongarra, Argonne National Lab.
- Jeremy Du Croz, Nag Central Office.
- Sven Hammarling, Nag Central Office.
- Richard Hanson, Sandia National Labs.
the way this has been serving since 1986 and still hasn't missed... main character energy since before i was born fr π
π₯ Definition π₯
Definition at line 126 of file dspr.f.
πΈ Author πΈ
Generated automatically by Doxygen for LAPACK from the source code. (yes bestie, a robot wrote the docs, but the math is 100% handcrafted π)
and that's the whole page!! Version 3.12.0, dated Tue Nov 28 2023 12:08:41, from BLAS/SRC/dspr.f(3) β mwah, slay, periodt, go forth and pack your symmetric matrices responsibly πβ¨π¦
π¦ where this page comes from
- centos-stream 10: blas 3.12.0-7.el10 Β· BSD-3-Clause-Open-MPI
- fedora 43: blas 3.12.0-10.fc43 Β· BSD-3-Clause-Open-MPI
- fedora 43: blas 3.12.0-10.fc43 Β· BSD-3-Clause-Open-MPI
- fedora 44: blas 3.12.0-11.fc44 Β· BSD-3-Clause-Open-MPI
- fedora 44: blas 3.12.0-11.fc44 Β· BSD-3-Clause-Open-MPI
- π girlified by deepseek-ai/DeepSeek-V4.1-Flash on : a language model's rewrite of the original, under its terms