double_blas_level2(3)
double_blas_level2 π β aka the Level 2 BLAS glow-up for DOUBLE PRECISION
okay so bestie, you opened double_blas_level2(3) and it's giving a lot, but don't panic π«Ά this is just the LAPACK manual page for the double flavor of the LEVEL 2 BLAS crew β all the matrix-vector and rank-update routines, in DOUBLE PRECISION, living their best lives. β¨
NAME πΈ
double_blas_level2 β double
(yes that's literally the whole name section. iconic minimalism. no notes. π )
SYNOPSIS π¦
Functions
subroutine dgbmv (TRANS, M, N, KL, KU, ALPHA, A, LDA, X, INCX, BETA, Y, INCY)βDGBMVsubroutine dgemv (TRANS, M, N, ALPHA, A, LDA, X, INCX, BETA, Y, INCY)βDGEMVsubroutine dger (M, N, ALPHA, X, INCX, Y, INCY, A, LDA)βDGERsubroutine dsbmv (UPLO, N, K, ALPHA, A, LDA, X, INCX, BETA, Y, INCY)βDSBMVsubroutine dspmv (UPLO, N, ALPHA, AP, X, INCX, BETA, Y, INCY)βDSPMVsubroutine dspr (UPLO, N, ALPHA, X, INCX, AP)βDSPRsubroutine dspr2 (UPLO, N, ALPHA, X, INCX, Y, INCY, AP)βDSPR2subroutine dsymv (UPLO, N, ALPHA, A, LDA, X, INCX, BETA, Y, INCY)βDSYMVsubroutine dsyr (UPLO, N, ALPHA, X, INCX, A, LDA)βDSYRsubroutine dsyr2 (UPLO, N, ALPHA, X, INCX, Y, INCY, A, LDA)βDSYR2subroutine dtbmv (UPLO, TRANS, DIAG, N, K, A, LDA, X, INCX)βDTBMVsubroutine dtbsv (UPLO, TRANS, DIAG, N, K, A, LDA, X, INCX)βDTBSVsubroutine dtpmv (UPLO, TRANS, DIAG, N, AP, X, INCX)βDTPMVsubroutine dtpsv (UPLO, TRANS, DIAG, N, AP, X, INCX)βDTPSVsubroutine dtrmv (UPLO, TRANS, DIAG, N, A, LDA, X, INCX)βDTRMV
Detailed Description π
This is the group of double LEVEL 2 BLAS routines. periodt. π
Function Documentation π₯
subroutine dgbmv
subroutine dgbmv (character TRANS, integer M, integer N, integer KL, integer
KU, double precision ALPHA, double precision, dimension(lda,*) A,
integer LDA, double precision, dimension(*) X, integer INCX, double
precision BETA, double precision, dimension(*) Y, integer INCY)
DGBMV π
Purpose:
DGBMV performs one of the matrix-vector operations
y := alpha*A*x + beta*y, or y := alpha*A**T*x + beta*y,
where alpha and beta are scalars, x and y are vectors and A is an m by n band matrix, with kl sub-diagonals and ku super-diagonals. no cap, that's the whole vibe. β¨
Parameters
TRANSβTRANSisCHARACTER*1. On entry,TRANSspecifies the operation to be performed as follows:TRANS = 'N' or 'n'βy := alpha*A*x + beta*y.TRANS = 'T' or 't'βy := alpha*A**T*x + beta*y.TRANS = 'C' or 'c'βy := alpha*A**T*x + beta*y.
MβMisINTEGER. On entry,Mspecifies the number of rows of the matrixA.Mmust be at least zero.NβNisINTEGER. On entry,Nspecifies the number of columns of the matrixA.Nmust be at least zero.KLβKLisINTEGER. On entry,KLspecifies the number of sub-diagonals of the matrixA.KLmust satisfy0 .le. KL.KUβKUisINTEGER. On entry,KUspecifies the number of super-diagonals of the matrixA.KUmust satisfy0 .le. KU.ALPHAβALPHAisDOUBLE PRECISION.On entry,ALPHAspecifies the scalar alpha.AβAisDOUBLE PRECISIONarray, dimension( LDA, N ). Before entry, the leading( kl + ku + 1 )by n part of the arrayAmust contain the matrix of coefficients, supplied column by column, with the leading diagonal of the matrix in row( ku + 1 )of the array, the first super-diagonal starting at position 2 in rowku, the first sub-diagonal starting at position 1 in row( ku + 2 ), and so on. Elements in the arrayAthat do not correspond to elements in the band matrix (such as the top leftkubykutriangle) are not referenced. The following program segment will transfer a band matrix from conventional full matrix storage to band storage:
DO 20, J = 1, N
K = KU + 1 - J
DO 10, I = MAX( 1, J - KU ), MIN( M, J + KL )
A( K + I, J ) = matrix( I, J )
10 CONTINUE
20 CONTINUE
LDAβLDAisINTEGER. On entry,LDAspecifies the first dimension ofAas declared in the calling (sub) program.LDAmust be at least( kl + ku + 1 ).XβXisDOUBLE PRECISIONarray, dimension at least( 1 + ( n - 1 )*abs( INCX ) )whenTRANS = 'N' or 'n'and at least( 1 + ( m - 1 )*abs( INCX ) )otherwise. Before entry, the incremented arrayXmust contain the vector x.INCXβINCXisINTEGER. On entry,INCXspecifies the increment for the elements ofX.INCXmust not be zero. π«BETAβBETAisDOUBLE PRECISION.On entry,BETAspecifies the scalar beta. WhenBETAis supplied as zero thenYneed not be set on input.YβYisDOUBLE PRECISIONarray, dimension at least( 1 + ( m - 1 )*abs( INCY ) )whenTRANS = 'N' or 'n'and at least( 1 + ( n - 1 )*abs( INCY ) )otherwise. Before entry, the incremented arrayYmust contain the vector y. On exit,Yis overwritten by the updated vector y.INCYβINCYisINTEGER. On entry,INCYspecifies the increment for the elements ofY.INCYmust not be zero. π«
Author
Univ. of Tennessee
Univ. of California Berkeley
Univ. of Colorado Denver
NAG Ltd.
Further Details:
Level 2 Blas routine.
The vector and matrix arguments are not referenced when N = 0, or M = 0
-- 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.
subroutine dgemv
subroutine dgemv (character TRANS, integer M, integer N, double precision
ALPHA, double precision, dimension(lda,*) A, integer LDA, double
precision, dimension(*) X, integer INCX, double precision BETA, double
precision, dimension(*) Y, integer INCY)
DGEMV π
Purpose:
DGEMV performs one of the matrix-vector operations
y := alpha*A*x + beta*y, or y := alpha*A**T*x + beta*y,
where alpha and beta are scalars, x and y are vectors and A is an m by n matrix. π
Parameters
TRANSβTRANSisCHARACTER*1. On entry,TRANSspecifies the operation to be performed as follows:TRANS = 'N' or 'n'βy := alpha*A*x + beta*y.TRANS = 'T' or 't'βy := alpha*A**T*x + beta*y.TRANS = 'C' or 'c'βy := alpha*A**T*x + beta*y.
MβMisINTEGER. On entry,Mspecifies the number of rows of the matrixA.Mmust be at least zero.NβNisINTEGER. On entry,Nspecifies the number of columns of the matrixA.Nmust be at least zero.ALPHAβALPHAisDOUBLE PRECISION.On entry,ALPHAspecifies the scalar alpha.AβAisDOUBLE PRECISIONarray, dimension( LDA, N ). Before entry, the leading m by n part of the arrayAmust contain the matrix of coefficients.LDAβLDAisINTEGER. On entry,LDAspecifies the first dimension ofAas declared in the calling (sub) program.LDAmust be at leastmax( 1, m ).XβXisDOUBLE PRECISIONarray, dimension at least( 1 + ( n - 1 )*abs( INCX ) )whenTRANS = 'N' or 'n'and at least( 1 + ( m - 1 )*abs( INCX ) )otherwise. Before entry, the incremented arrayXmust contain the vector x.INCXβINCXisINTEGER. On entry,INCXspecifies the increment for the elements ofX.INCXmust not be zero. π«BETAβBETAisDOUBLE PRECISION.On entry,BETAspecifies the scalar beta. WhenBETAis supplied as zero thenYneed not be set on input.YβYisDOUBLE PRECISIONarray, dimension at least( 1 + ( m - 1 )*abs( INCY ) )whenTRANS = 'N' or 'n'and at least( 1 + ( n - 1 )*abs( INCY ) )otherwise. Before entry withBETAnon-zero, the incremented arrayYmust contain the vector y. On exit,Yis overwritten by the updated vector y.INCYβINCYisINTEGER. On entry,INCYspecifies the increment for the elements ofY.INCYmust not be zero. π«
Author
Univ. of Tennessee
Univ. of California Berkeley
Univ. of Colorado Denver
NAG Ltd.
Further Details:
Level 2 Blas routine.
The vector and matrix arguments are not referenced when N = 0, or M = 0
-- 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.
subroutine dger
subroutine dger (integer M, integer N, double precision ALPHA, double
precision, dimension(*) X, integer INCX, double precision, dimension(*)
Y, integer INCY, double precision, dimension(lda,*) A, integer LDA)
DGER π
Purpose:
DGER performs the rank 1 operation
A := alpha*x*y**T + A,
where alpha is a scalar, x is an m element vector, y is an n element vector and A is an m by n matrix. π
Parameters
MβMisINTEGER. On entry,Mspecifies the number of rows of the matrixA.Mmust be at least zero.NβNisINTEGER. On entry,Nspecifies the number of columns of the matrixA.Nmust be at least zero.ALPHAβALPHAisDOUBLE PRECISION.On entry,ALPHAspecifies the scalar alpha.XβXisDOUBLE PRECISIONarray, dimension at least( 1 + ( m - 1 )*abs( INCX ) ). Before entry, the incremented arrayXmust contain the m element vector x.INCX
β¦and bestie we are literally only getting started β there's so much more of this page to go. π¦β¨
INCXβ INTEGER, bestie. On entry,INCXsays what the increment is for the elements ofX, and it is absolutely not allowed to be zero. Zero increment = chaos, we don't do that. πYβ DOUBLE PRECISION array, dimension at least( 1 + ( n - 1 )*abs( INCY ) ). Before you come in here, the incremented arrayYhas gotta contain thenelement vectory. That's the vibe. β¨INCYβ INTEGER. On entry,INCYis the increment for the elements ofY. And same rule as its sibling:INCYmust not be zero. π«Aβ DOUBLE PRECISION array, dimension( LDA, N ). Before entry, the leadingmbynpart of the arrayAmust contain the matrix of coefficients. On exit,Agets overwritten by the updated matrix β so like, don't be attached to what you put in there, she's evolving. π¦LDAβ INTEGER. On entry,LDAspecifies the first dimension ofAas declared in the calling (sub) program.LDAmust be at leastmax( 1, m ). No shortcuts, she will notice. π
πΈ Author πΈ
Univ. of Tennessee
Univ. of California Berkeley
Univ. of Colorado Denver
NAG Ltd.
π 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.
π¦ subroutine dsbmv π¦
subroutine dsbmv (character UPLO, integer N, integer K, double precision
ALPHA, double precision, dimension(lda,*) A, integer LDA, double
precision, dimension(*) X, integer INCX, double precision BETA, double
precision, dimension(*) Y, integer INCY)
DSBMV
β¨ Purpose β¨
Okay so DSBMV performs the matrix-vector operation
y := alpha*A*x + beta*y,
where alpha and beta are scalars, x and y are n element vectors and A is an n by n symmetric band matrix, with k super-diagonals. Yes she's banded, yes she's symmetric, yes she ate. π
π Parameters π
UPLOβUPLOis CHARACTER*1. On entry,UPLOspecifies whether the upper or lower triangular part of the band matrixAis being supplied, as follows:UPLO = 'U' or 'u'β The upper triangular part ofAis being supplied.UPLO = 'L' or 'l'β The lower triangular part ofAis being supplied.
NβNis INTEGER. On entry,Nspecifies the order of the matrixA.Nmust be at least zero. (Zero is fine bestie, she can be nothing, no stress.) π«ΆKβKis INTEGER. On entry,Kspecifies the number of super-diagonals of the matrixA.Kmust satisfy0 .le. K.ALPHAβALPHAis DOUBLE PRECISION. On entry,ALPHAspecifies the scalar alpha.AβAis DOUBLE PRECISION array, dimension( LDA, N ).
Before entry with UPLO = 'U' or 'u', the leading ( k + 1 ) by n part of the array A must contain the upper triangular band part of the symmetric matrix, supplied column by column, with the leading diagonal of the matrix in row ( k + 1 ) of the array, the first super-diagonal starting at position 2 in row k, and so on. The top left k by k triangle of the array A is not referenced.
The following program segment will transfer the upper triangular part of a symmetric band matrix from conventional full matrix storage to band storage:
DO 20, J = 1, N
M = K + 1 - J
DO 10, I = MAX( 1, J - K ), J
A( M + I, J ) = matrix( I, J )
10 CONTINUE
20 CONTINUE
Before entry with UPLO = 'L' or 'l', the leading ( k + 1 ) by n part of the array A must contain the lower triangular band part of the symmetric matrix, supplied column by column, with the leading diagonal of the matrix in row 1 of the array, the first sub-diagonal starting at position 1 in row 2, and so on. The bottom right k by k triangle of the array A is not referenced.
The following program segment will transfer the lower triangular part of a symmetric band matrix from conventional full matrix storage to band storage:
DO 20, J = 1, N
M = 1 - J
DO 10, I = J, MIN( N, J + K )
A( M + I, J ) = matrix( I, J )
10 CONTINUE
20 CONTINUE
LDAβLDAis INTEGER. On entry,LDAspecifies the first dimension ofAas declared in the calling (sub) program.LDAmust be at least( k + 1 ).XβXis DOUBLE PRECISION array, dimension at least( 1 + ( n - 1 )*abs( INCX ) ). Before entry, the incremented arrayXmust contain the vectorx.INCXβINCXis INTEGER. On entry,INCXspecifies the increment for the elements ofX.INCXmust not be zero. π«BETAβBETAis DOUBLE PRECISION. On entry,BETAspecifies the scalar beta.YβYis DOUBLE PRECISION array, dimension at least( 1 + ( n - 1 )*abs( INCY ) ). Before entry, the incremented arrayYmust contain the vectory. On exit,Yis overwritten by the updated vectory. π¦INCYβINCYis INTEGER. On entry,INCYspecifies the increment for the elements ofY.INCYmust not be zero. π«
π Author π
Univ. of Tennessee
Univ. of California Berkeley
Univ. of Colorado Denver
NAG Ltd.
π Further Details π
Level 2 Blas routine.
The vector and matrix arguments are not referenced when N = 0, or M = 0
-- 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.
π§ subroutine dspmv π§
subroutine dspmv (character UPLO, integer N, double precision ALPHA, double
precision, dimension(*) AP, double precision, dimension(*) X, integer
INCX, double precision BETA, double precision, dimension(*) Y, integer
INCY)
DSPMV
β¨ Purpose β¨
DSPMV performs the matrix-vector operation
y := alpha*A*x + beta*y,
where alpha and beta are scalars, x and y are n element vectors and A is an n by n symmetric matrix, supplied in packed form. Packed and iconic, no wasted space, she's efficient like that. π
π Parameters π
UPLOβUPLOis CHARACTER*1. On entry,UPLOspecifies whether the upper or lower triangular part of the matrixAis supplied in the packed arrayAP, as follows:UPLO = 'U' or 'u'β The upper triangular part ofAis supplied inAP.UPLO = 'L' or 'l'β The lower triangular part ofAis supplied inAP.
NβNis INTEGER. On entry,Nspecifies the order of the matrixA.Nmust be at least zero. π«ΆALPHAβALPHAis DOUBLE PRECISION. On entry,ALPHAspecifies the scalar alpha.APβAPis DOUBLE PRECISION array, dimension at least( ( n*( n + 1 ) )/2 ).
Before entry with UPLO = 'U' or 'u', the array AP must contain the upper triangular part of the symmetric matrix packed sequentially, column by column, so that AP( 1 ) contains a( 1, 1 ), AP( 2 ) and AP( 3 ) contain a( 1, 2 ) and a( 2, 2 ) respectively, and so on. β¨
Before entry with UPLO = 'L' or 'l', the array AP must contain the lower triangular part of the symmetric matrix packed sequentially, column by column, so that AP( 1 ) contains a( 1, 1 ), AP( 2 ) and AP( 3 ) contain a( 2, 1 ) and a( 3, 1 ) respectively, and so on. β¨
XβXis DOUBLE PRECISION array, dimension at least( 1 + ( n - 1 )*abs( INCX ) ). Before entry, the incremented arrayXmust contain thenelement vectorx.INCXβINCXis INTEGER. On entry,INCXspecifies the increment for the elements ofX.INCXmust not be zero. π«BETAβBETAis DOUBLE PRECISION. On entry,BETAspecifies the scalar beta. WhenBETAis supplied as zero thenYneed not be set on input. Big convenience energy, honestly. πYβYis DOUBLE PRECISION array, dimension at least( 1 + ( n - 1 )*abs( INCY ) ). Before entry, the incremented arrayYmust contain thenelement vectory. On exit,Yis overwritten by the updated vectory. π¦INCYβINCYis INTEGER. On entry,INCYspecifies the increment for the elements ofY.INCYmust not be zero. π«
π Author π
Univ. of Tennessee
Univ. of California Berkeley
Univ. of Colorado Denver
NAG Ltd.
π Further Details π
Level 2 Blas routine.
The vector and matrix arguments are not referenced when N = 0, or M = 0
-- 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.
πΈ subroutine dspr πΈ
subroutine dspr (character UPLO, integer N, double precision ALPHA, double
precision, dimension(*) X, integer INCX, double precision, dimension(*)
AP)
DSPR
β¨ Purpose β¨
DSPR performs the symmetric rank 1 operation
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. Rank one update, no notes, she's that girl. π
π Parameters π
UPLOβUPLOis CHARACTER*1. On entry,UPLOspecifies whether the upper or lower triangular part of the matrixAis supplied in the packed arrayAP, as follows:UPLOβ bestie,UPLOis aCHARACTER*1. on entry it tells us whether the upper or lower triangular part ofAis supplied inAP, and it's giving options: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. no cap, fr fr. πALPHAβALPHAisDOUBLE PRECISION. on entry,ALPHAspecifies the scalaralpha. periodt. β¨XβXisDOUBLE PRECISIONarray, dimension at least( 1 + ( n - 1 )*abs( INCX ) ). before entry, the incremented arrayXmust contain thenelement vectorx. πINCXβINCXisINTEGER. on entry,INCXspecifies the increment for the elements ofX.INCXmust not be zero. don't even think about setting it to zero, bestie. π«APβAPisDOUBLE PRECISIONarray, dimension at least( ( n*( n + 1 ) )/2 ). before entry withUPLO = '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 withUPLO = '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. it's giving packed realness, iykyk. π
Author
- Univ. of Tennessee
- Univ. of California Berkeley
- Univ. of Colorado Denver
- NAG Ltd.
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.
subroutine dspr2 (character UPLO, integer N, double precision ALPHA, double precision, dimension() X, integer INCX, double precision, dimension() Y, integer INCY, double precision, dimension(*) AP)
DSPR2
Purpose
DSPR2 performs the symmetric rank 2 operation
A := alpha*x*y**T + alpha*y*x**T + A,
where alpha is a scalar, x and y are n element vectors and A is an n by n symmetric matrix, supplied in packed form. slay, bestie. π
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.ALPHAβALPHAisDOUBLE PRECISION. on entry,ALPHAspecifies the scalaralpha.XβXisDOUBLE PRECISIONarray, dimension at least( 1 + ( n - 1 )*abs( INCX ) ). before entry, the incremented arrayXmust contain thenelement vectorx.INCXβINCXisINTEGER. on entry,INCXspecifies the increment for the elements ofX.INCXmust not be zero.YβYisDOUBLE PRECISIONarray, dimension at least( 1 + ( n - 1 )*abs( INCY ) ). before entry, the incremented arrayYmust contain thenelement vectory.INCYβINCYisINTEGER. on entry,INCYspecifies the increment for the elements ofY.INCYmust not be zero.APβAPisDOUBLE PRECISIONarray, dimension at least( ( n*( n + 1 ) )/2 ). before entry withUPLO = '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 withUPLO = '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.
Author
- Univ. of Tennessee
- Univ. of California Berkeley
- Univ. of Colorado Denver
- NAG Ltd.
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.
subroutine dsymv (character UPLO, integer N, double precision ALPHA, double precision, dimension(lda,) A, integer LDA, double precision, dimension() X, integer INCX, double precision BETA, double precision, dimension(*) Y, integer INCY)
DSYMV
Purpose
DSYMV performs the matrix-vector operation
y := alpha*A*x + beta*y,
where alpha and beta are scalars, x and y are n element vectors and A is an n by n symmetric matrix. main character energy, fr fr. π
Parameters
UPLOβUPLOisCHARACTER*1. on entry,UPLOspecifies whether the upper or lower triangular part of the arrayAis to be referenced as follows:UPLO = 'U'or'u'β only the upper triangular part ofAis to be referenced.UPLO = 'L'or'l'β only the lower triangular part ofAis to be referenced.
NβNisINTEGER. on entry,Nspecifies the order of the matrixA.Nmust be at least zero.ALPHAβALPHAisDOUBLE PRECISION. on entry,ALPHAspecifies the scalaralpha.AβAisDOUBLE PRECISIONarray, dimension( LDA, N ). before entry withUPLO = 'U'or'u', the leadingnbynupper triangular part of the arrayAmust contain the upper triangular part of the symmetric matrix and the strictly lower triangular part ofAis not referenced. before entry withUPLO = 'L'or'l', the leadingnbynlower triangular part of the arrayAmust contain the lower triangular part of the symmetric matrix and the strictly upper triangular part ofAis not referenced.LDAβLDAisINTEGER. on entry,LDAspecifies the first dimension ofAas declared in the calling (sub) program.LDAmust be at leastmax( 1, n ).XβXisDOUBLE PRECISIONarray, dimension at least( 1 + ( n - 1 )*abs( INCX ) ). before entry, the incremented arrayXmust contain thenelement vectorx.INCXβINCXisINTEGER. on entry,INCXspecifies the increment for the elements ofX.INCXmust not be zero.BETAβBETAisDOUBLE PRECISION. on entry,BETAspecifies the scalarbeta. whenBETAis supplied as zero thenYneed not be set on input. bestie, that's a time saver. β¨YβYisDOUBLE PRECISIONarray, dimension at least( 1 + ( n - 1 )*abs( INCY ) ). before entry, the incremented arrayYmust contain thenelement vectory. on exit,Yis overwritten by the updated vectory.INCYβINCYisINTEGER. on entry,INCYspecifies the increment for the elements ofY.INCYmust not be zero.
Author
- Univ. of Tennessee
- Univ. of California Berkeley
- Univ. of Colorado Denver
- NAG Ltd.
Further Details
Level 2 Blas routine. The vector and matrix arguments are not referenced when N = 0, or M = 0
-- 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.
subroutine dsyr (character UPLO, integer N, double precision ALPHA, double precision, dimension() X, integer INCX, double precision, dimension(lda,) A, integer LDA)
DSYR
Purpose
DSYR performs the symmetric rank 1 operation
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. serving looks, no cap. πββοΈ
Parameters
UPLOβUPLOisCHARACTER*1. on entry,UPLOspecifies whether the upper or lower triangular part of the arrayAis to be referenced as follows:UPLO = 'U'or'u'β only the upper triangular part ofAis to be referenced.UPLO = 'L'or'l'β only the lower triangular part ofAis to be referenced.
NβNisINTEGER. on entry,Nspecifies the order of the matrixA.Nmust be at least zero.ALPHAβALPHAisDOUBLE PRECISION. on entry,ALPHAspecifies the scalaralpha.Xβ
X
X is a DOUBLE PRECISION array, dimension at least ( 1 + ( n - 1 )*abs( INCX ) ). Before entry, the incremented array X must contain the n element vector x. bestie, that's the whole vibe β¨
INCX
INCX is INTEGER. On entry, INCX specifies the increment for the elements of X. INCX must not be zero. like. ever. π
A
A is a DOUBLE PRECISION array, dimension ( LDA, N ).
Before entry with UPLO = 'U' or 'u', the leading n by n upper triangular part of the array A must contain the upper triangular part of the symmetric matrix, and the strictly lower triangular part of A is not referenced. On exit, the upper triangular part of the array A is overwritten by the upper triangular part of the updated matrix.
Before entry with UPLO = 'L' or 'l', the leading n by n lower triangular part of the array A must contain the lower triangular part of the symmetric matrix, and the strictly upper triangular part of A is not referenced. On exit, the lower triangular part of the array A is overwritten by the lower triangular part of the updated matrix.
LDA
LDA is INTEGER. On entry, LDA specifies the first dimension of A as declared in the calling (sub) program. LDA must be at least max( 1, n ).
π Author
Univ. of Tennessee
Univ. of California Berkeley
Univ. of Colorado Denver
NAG Ltd.
πΈ 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.
π¦ subroutine dsyr2 (character UPLO, integer N, double precision ALPHA, double precision, dimension(*) X, integer INCX, double precision, dimension(*) Y, integer INCY, double precision, dimension(lda,*) A, integer LDA)
DSYR2
Purpose:
DSYR2 performs the symmetric rank 2 operation
A := alpha*x*y**T + alpha*y*x**T + A,
where alpha is a scalar, x and y are n element vectors and A is an n by n symmetric matrix. two vectors, one glow-up, no cap π
Parameters
UPLO
UPLO is CHARACTER*1. On entry, UPLO specifies whether the upper or lower triangular part of the array A is to be referenced as follows:
UPLO = 'U'or'u'β Only the upper triangular part ofAis to be referenced.UPLO = 'L'or'l'β Only the lower triangular part ofAis to be referenced.
N
N is INTEGER. On entry, N specifies the order of the matrix A. N must be at least zero.
ALPHA
ALPHA is DOUBLE PRECISION. On entry, ALPHA specifies the scalar alpha. the moment β¨
X
X is a DOUBLE PRECISION array, dimension at least ( 1 + ( n - 1 )*abs( INCX ) ). Before entry, the incremented array X must contain the n element vector x.
INCX
INCX is INTEGER. On entry, INCX specifies the increment for the elements of X. INCX must not be zero.
Y
Y is a DOUBLE PRECISION array, dimension at least ( 1 + ( n - 1 )*abs( INCY ) ). Before entry, the incremented array Y must contain the n element vector y. π«Ά
INCY
INCY is INTEGER. On entry, INCY specifies the increment for the elements of Y. INCY must not be zero.
A
A is a DOUBLE PRECISION array, dimension ( LDA, N ).
Before entry with UPLO = 'U' or 'u', the leading n by n upper triangular part of the array A must contain the upper triangular part of the symmetric matrix, and the strictly lower triangular part of A is not referenced. On exit, the upper triangular part of the array A is overwritten by the upper triangular part of the updated matrix.
Before entry with UPLO = 'L' or 'l', the leading n by n lower triangular part of the array A must contain the lower triangular part of the symmetric matrix, and the strictly upper triangular part of A is not referenced. On exit, the lower triangular part of the array A is overwritten by the lower triangular part of the updated matrix.
LDA
LDA is INTEGER. On entry, LDA specifies the first dimension of A as declared in the calling (sub) program. LDA must be at least max( 1, n ).
Author
Univ. of Tennessee
Univ. of California Berkeley
Univ. of Colorado Denver
NAG Ltd.
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.
π subroutine dtbmv (character UPLO, character TRANS, character DIAG, integer N, integer K, double precision, dimension(lda,*) A, integer LDA, double precision, dimension(*) X, integer INCX)
DTBMV
Purpose:
DTBMV performs one of the matrix-vector operations
x := A*x, or x := A**T*x,
where x is an n element vector and A is an n by n unit, or non-unit, upper or lower triangular band matrix, with ( k + 1 ) diagonals. band matrix girlies rise π§
Parameters
UPLO
UPLO is CHARACTER*1. On entry, UPLO specifies whether the matrix is an upper or lower triangular matrix as follows:
UPLO = 'U'or'u'βAis an upper triangular matrix.UPLO = 'L'or'l'βAis a lower triangular matrix.
TRANS
TRANS is CHARACTER*1. On entry, TRANS specifies the operation to be performed as follows:
TRANS = 'N'or'n'βx := A*x.TRANS = 'T'or't'βx := A**T*x.TRANS = 'C'or'c'βx := A**T*x.
DIAG
DIAG is CHARACTER*1. On entry, DIAG specifies whether or not A is unit triangular as follows:
DIAG = 'U'or'u'βAis assumed to be unit triangular.DIAG = 'N'or'n'βAis not assumed to be unit triangular.
N
N is INTEGER. On entry, N specifies the order of the matrix A. N must be at least zero.
K
K is INTEGER. On entry with UPLO = 'U' or 'u', K specifies the number of super-diagonals of the matrix A. On entry with UPLO = 'L' or 'l', K specifies the number of sub-diagonals of the matrix A. K must satisfy 0 .le. K.
A
A is a DOUBLE PRECISION array, dimension ( LDA, N ).
Before entry with UPLO = 'U' or 'u', the leading ( k + 1 ) by n part of the array A must contain the upper triangular band part of the matrix of coefficients, supplied column by column, with the leading diagonal of the matrix in row ( k + 1 ) of the array, the first super-diagonal starting at position 2 in row k, and so on. The top left k by k triangle of the array A is not referenced.
The following program segment will transfer an upper triangular band matrix from conventional full matrix storage to band storage:
DO 20, J = 1, N
M = K + 1 - J
DO 10, I = MAX( 1, J - K ), J
A( M + I, J ) = matrix( I, J )
10 CONTINUE
20 CONTINUE
Before entry with UPLO = 'L' or 'l', the leading ( k + 1 ) by n part of the array A must contain the lower triangular band part of the matrix of coefficients, supplied column by column, with the leading diagonal of the matrix in row 1 of the array, the first sub-diagonal starting at position 1 in row 2, and so on. The bottom right k by k triangle of the array A is not referenced.
The following program segment will transfer a lower triangular band matrix from conventional full matrix storage to band storage:
DO 20, J = 1, N
M = 1 - J
DO 10, I = J, MIN( N, J + K )
A( M + I, J ) = matrix( I, J )
10 CONTINUE
20 CONTINUE
Note that when DIAG = 'U' or 'u' the elements of the array A corresponding to the diagonal elements of the matrix are not referenced, but are assumed to be unity. π
LDA
LDA is INTEGER. On entry, LDA specifies the first dimension of A as declared in the calling (sub) program. LDA must be at least ( k + 1 ).
X
X is a DOUBLE PRECISION array, dimension at least ( 1 + ( n - 1 )*abs( INCX ) ). Before entry, the incremented array X must contain the n element vector x. On exit, X is overwritten with the transformed vector x. glow-up complete, iconic π₯
INCX
INCX is INTEGER. On entry, INCX specifies the increment for the elements of X. INCX must not be zero.
Author
Univ. of Tennessee
Univ. of California Berkeley
Univ. of Colorado Denver
NAG Ltd.
Further Details:
Level 2 Blas routine.
The vector and matrix arguments are not referenced whenN = 0, orM = 0
-- 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.
dtbsv β solving triangular band systems, she's so real for that π¦
subroutine dtbsv (character UPLO, character TRANS, character DIAG, integer
N, integer K, double precision, dimension(lda,*) A, integer LDA, double
precision, dimension(*) X, integer INCX)
Purpose β¨
okay so DTBSV solves one of these systems of equations, bestie:
A*x = b, or A**T*x = b,
where b and x are n element vectors and A is an n by n unit, or non-unit, upper or lower triangular band matrix, with ( k + 1 ) diagonals. band storage, we love to see it π
π¨ Important, no cap: no test for singularity or near-singularity is included in this routine. Such tests must be performed before calling this routine. She is not gonna hold your hand and tell you the matrix is cursed β you have to check that yourself, fr fr. π
Parameters π
UPLOβCHARACTER*1. On entry, UPLO specifies whether the matrix is an upper or lower triangular matrix as follows:UPLO = 'U'or'u'β A is an upper triangular matrix.UPLO = 'L'or'l'β A is a lower triangular matrix.
TRANSβCHARACTER*1. On entry, TRANS specifies the equations to be solved as follows:TRANS = 'N'or'n'βA*x = b.TRANS = 'T'or't'βA**T*x = b.TRANS = 'C'or'c'βA**T*x = b.
DIAGβCHARACTER*1. On entry, DIAG specifies whether or not A is unit triangular as follows:DIAG = 'U'or'u'β A is assumed to be unit triangular.DIAG = 'N'or'n'β A is not assumed to be unit triangular.
NβINTEGER. On entry, N specifies the order of the matrix A. N must be at least zero.KβINTEGER. On entry withUPLO = 'U'or'u', K specifies the number of super-diagonals of the matrix A. On entry withUPLO = 'L'or'l', K specifies the number of sub-diagonals of the matrix A. K must satisfy0 .le. K.AβDOUBLE PRECISION array, dimension ( LDA, N ).
Before entry with UPLO = 'U' or 'u', the leading ( k + 1 ) by n part of the array A must contain the upper triangular band part of the matrix of coefficients, supplied column by column, with the leading diagonal of the matrix in row ( k + 1 ) of the array, the first super-diagonal starting at position 2 in row k, and so on. The top left k by k triangle of the array A is not referenced. π«Ά
The following program segment will transfer an upper triangular band matrix from conventional full matrix storage to band storage:
DO 20, J = 1, N
M = K + 1 - J
DO 10, I = MAX( 1, J - K ), J
A( M + I, J ) = matrix( I, J )
10 CONTINUE
20 CONTINUE
Before entry with UPLO = 'L' or 'l', the leading ( k + 1 ) by n part of the array A must contain the lower triangular band part of the matrix of coefficients, supplied column by column, with the leading diagonal of the matrix in row 1 of the array, the first sub-diagonal starting at position 1 in row 2, and so on. The bottom right k by k triangle of the array A is not referenced. πΈ
The following program segment will transfer a lower triangular band matrix from conventional full matrix storage to band storage:
DO 20, J = 1, N
M = 1 - J
DO 10, I = J, MIN( N, J + K )
A( M + I, J ) = matrix( I, J )
10 CONTINUE
20 CONTINUE
Note that when DIAG = 'U' or 'u' the elements of the array A corresponding to the diagonal elements of the matrix are not referenced, but are assumed to be unity. iconic behaviour honestly β¨
LDAβINTEGER. On entry, LDA specifies the first dimension of A as declared in the calling (sub) program. LDA must be at least( k + 1 ).XβDOUBLE PRECISION array, dimension at least ( 1 + ( n - 1 )*abs( INCX ) ). Before entry, the incremented array X must contain the n element right-hand side vector b. On exit, X is overwritten with the solution vector x. πINCXβINTEGER. On entry, INCX specifies the increment for the elements of X. INCX must not be zero.
Author π
- Univ. of Tennessee
- Univ. of California Berkeley
- Univ. of Colorado Denver
- NAG Ltd.
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.
dtpmv β packed triangular matrix-vector multiply, main character energy π
subroutine dtpmv (character UPLO, character TRANS, character DIAG, integer
N, double precision, dimension(*) AP, double precision, dimension(*) X,
integer INCX)
Purpose β¨
DTPMV performs one of the matrix-vector operations
x := A*x, or x := A**T*x,
where x is an n element vector and A is an n by n unit, or non-unit, upper or lower triangular matrix, supplied in packed form. no wasted space, we stan a compact queen π
Parameters π
UPLOβCHARACTER*1. On entry, UPLO specifies whether the matrix is an upper or lower triangular matrix as follows:UPLO = 'U'or'u'β A is an upper triangular matrix.UPLO = 'L'or'l'β A is a lower triangular matrix.
TRANSβCHARACTER*1. On entry, TRANS specifies the operation to be performed as follows:TRANS = 'N'or'n'βx := A*x.TRANS = 'T'or't'βx := A**T*x.TRANS = 'C'or'c'βx := A**T*x.
DIAGβCHARACTER*1. On entry, DIAG specifies whether or not A is unit triangular as follows:DIAG = 'U'or'u'β A is assumed to be unit triangular.DIAG = 'N'or'n'β A is not assumed to be unit triangular.
NβINTEGER. On entry, N specifies the order of the matrix A. N must be at least zero.APβDOUBLE PRECISION array, dimension at least ( ( n*( n + 1 ) )/2 ).
Before entry with UPLO = 'U' or 'u', the array AP must contain the upper triangular matrix packed sequentially, column by column, so that AP( 1 ) contains a( 1, 1 ), AP( 2 ) and AP( 3 ) contain a( 1, 2 ) and a( 2, 2 ) respectively, and so on. π¦
Before entry with UPLO = 'L' or 'l', the array AP must contain the lower triangular matrix packed sequentially, column by column, so that AP( 1 ) contains a( 1, 1 ), AP( 2 ) and AP( 3 ) contain a( 2, 1 ) and a( 3, 1 ) respectively, and so on. πΈ
Note that when DIAG = 'U' or 'u', the diagonal elements of A are not referenced, but are assumed to be unity.
XβDOUBLE PRECISION array, dimension at least ( 1 + ( n - 1 )*abs( INCX ) ). Before entry, the incremented array X must contain the n element vector x. On exit, X is overwritten with the transformed vector x. πINCXβINTEGER. On entry, INCX specifies the increment for the elements of X. INCX must not be zero.
Author π
- Univ. of Tennessee
- Univ. of California Berkeley
- Univ. of Colorado Denver
- NAG Ltd.
Further Details: π
- Level 2 Blas routine.
- The vector and matrix arguments are not referenced when
N = 0, orM = 0
-- 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.
dtpsv β packed triangular solve, the solver bestie π
subroutine dtpsv (character UPLO, character TRANS, character DIAG, integer
N, double precision, dimension(*) AP, double precision, dimension(*) X,
integer INCX)
Purpose β¨
DTPSV solves one of the systems of equations
A*x = b, or A**T*x = b,
where b and x are n element vectors and A is an n by n unit, or non-unit, upper or lower triangular matrix, supplied in packed form.
π¨ Heads up, bestie: no test for singularity or near-singularity is included in this routine. Such tests must be performed before calling this routine. she trusts you, which is honestly a lot π
Parameters π
UPLOβCHARACTER*1. On entry, UPLO specifies whether the matrix is an upper or lower triangular matrix as follows:UPLO = 'U'or'u'β A is an upper triangular matrix.UPLO = 'L'or'l'β A is a lower triangular matrix.
TRANSβCHARACTER*1. On entry, TRANS specifies the equations to be solved as follows:TRANS = 'N'or'n'βA*x = b.TRANS = 'T'or't'βA**T*x = b.TRANS = 'C'or'c'βA**T*x = b.
DIAGβCHARACTER*1. On entry, DIAG specifies whether or not A is unit triangular as follows:DIAG = 'U'or'u'β A is assumed to be unit triangular.DIAG = 'N'or'n'β A is not assumed to be unit triangular.
NβINTEGER. On entry, N specifies the order of the matrix A. N must be at least zero.
AP
Okay so AP is a DOUBLE PRECISION array, and its dimension is at least ( ( n*( n + 1 ) )/2 ). That's the packed tea.
Before entry with UPLO = 'U' or 'u', the array AP must contain the upper triangular matrix packed sequentially, column by column, so that AP( 1 ) contains a( 1, 1 ), AP( 2 ) and AP( 3 ) contain a( 1, 2 ) and a( 2, 2 ) respectively, and so on. Column by column, no cap.
Before entry with UPLO = 'L' or 'l', the array AP must contain the lower triangular matrix packed sequentially, column by column, so that AP( 1 ) contains a( 1, 1 ), AP( 2 ) and AP( 3 ) contain a( 2, 1 ) and a( 3, 1 ) respectively, and so on.
Note that whenDIAG = 'U'or'u', the diagonal elements ofAare not referenced, but are assumed to be unity. So they're just there for the vibe, not the math.
X
Next up, X is a DOUBLE PRECISION array, dimension at least ( 1 + ( n - 1 )*abs( INCX ) ).
Before entry, the incremented array X must contain the n element right-hand side vector b. On exit, X is overwritten with the solution vector x. So it's a total glow-up.
INCX
And INCX is INTEGER.
On entry, INCX specifies the increment for the elements of X. INCX must not be zero. Periodt.
π Author
Univ. of Tennessee
Univ. of California Berkeley
Univ. of Colorado Denver
NAG Ltd.
These are the icons who wrote this, btw.
β¨ 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.
So vintage, so iconic.
π¦ dtrmv
subroutine dtrmv (character UPLO, character TRANS, character DIAG, integer
N, double precision, dimension(lda,*) A, integer LDA, double precision,
dimension(*) X, integer INCX)
Purpose
DTRMV performs one of the matrix-vector operations
x := A*x, or x := A**T*x,
where x is an n element vector and A is an n by n unit, or non-unit, upper or lower triangular matrix.
Basically, it's the triangular matrix-vector multiply, and it's lowkey a bop.
Parameters
UPLOβUPLOisCHARACTER*1. On entry,UPLOspecifies whether the matrix is an upper or lower triangular matrix as follows:UPLO = 'U'or'u'Ais an upper triangular matrix.UPLO = 'L'or'l'Ais a lower triangular matrix.
TRANSβTRANSisCHARACTER*1. On entry,TRANSspecifies the operation to be performed as follows:TRANS = 'N'or'n'x := A*x.TRANS = 'T'or't'x := A**T*x.TRANS = 'C'or'c'x := A**T*x.
DIAGβDIAGisCHARACTER*1. On entry,DIAGspecifies whether or notAis unit triangular as follows:DIAG = 'U'or'u'Ais assumed to be unit triangular.DIAG = 'N'or'n'Ais not assumed to be unit triangular.
NβNisINTEGER. On entry,Nspecifies the order of the matrixA.Nmust be at least zero.AβAisDOUBLE PRECISIONarray, dimension( LDA, N ). Before entry withUPLO = 'U'or'u', the leadingnbynupper triangular part of the arrayAmust contain the upper triangular matrix and the strictly lower triangular part ofAis not referenced.
Before entry with UPLO = 'L' or 'l', the leading n by n lower triangular part of the array A must contain the lower triangular matrix and the strictly upper triangular part of A is not referenced.
Note that whenDIAG = 'U'or'u', the diagonal elements ofAare not referenced either, but are assumed to be unity. Again, not even looking at them.
LDAβLDAisINTEGER. On entry,LDAspecifies the first dimension ofAas declared in the calling (sub) program.LDAmust be at leastmax( 1, n ).XβXisDOUBLE PRECISIONarray, dimension at least( 1 + ( n - 1 )*abs( INCX ) ). Before entry, the incremented arrayXmust contain thenelement vectorx. On exit,Xis overwritten with the transformed vectorx.INCXβINCXisINTEGER. On entry,INCXspecifies the increment for the elements ofX.INCXmust not be zero.
π Author
Univ. of Tennessee
Univ. of California Berkeley
Univ. of Colorado Denver
NAG Ltd.
β¨ Further Details
Level 2 Blas routine. The vector and matrix arguments are not referenced when N = 0, or M = 0
-- 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.
π Author
Generated automatically by Doxygen for LAPACK from the source code.
And that's the tea, bestie! π This page is from LAPACK version3.11.0, datedSun Nov 27 2022, and it'sdouble_blas_level2(3). Slay forever. β¨
π¦ where this page comes from
- debian bookworm: liblapack-doc 3.11.0-2 Β· BSD-3-Clause
- π girlified by deepseek-ai/DeepSeek-V4.1-Flash on : a language model's rewrite of the original, under its terms