syr Interface

public interface syr

SYR performs the symmetric rank 1 operation A := alphaxx**T + A, where alpha is a real scalar, x is an n element vector and A is an n by n symmetric matrix.


Subroutines

public pure subroutine dsyr(uplo, n, alpha, x, incx, a, lda)

Arguments

Type IntentOptional Attributes Name
character(len=1), intent(in) :: uplo
integer(kind=ilp), intent(in) :: n
real(kind=dp), intent(in) :: alpha
real(kind=dp), intent(in) :: x(*)
integer(kind=ilp), intent(in) :: incx
real(kind=dp), intent(inout) :: a(lda,*)
integer(kind=ilp), intent(in) :: lda

public pure subroutine ssyr(uplo, n, alpha, x, incx, a, lda)

Arguments

Type IntentOptional Attributes Name
character(len=1), intent(in) :: uplo
integer(kind=ilp), intent(in) :: n
real(kind=sp), intent(in) :: alpha
real(kind=sp), intent(in) :: x(*)
integer(kind=ilp), intent(in) :: incx
real(kind=sp), intent(inout) :: a(lda,*)
integer(kind=ilp), intent(in) :: lda

Module Procedures

public pure subroutine stdlib_dsyr(uplo, n, alpha, x, incx, a, lda)

DSYR performs the symmetric rank 1 operation A := alphaxx**T + A, where alpha is a real scalar, x is an n element vector and A is an n by n symmetric matrix.

Arguments

Type IntentOptional Attributes Name
character(len=1), intent(in) :: uplo
integer(kind=ilp), intent(in) :: n
real(kind=dp), intent(in) :: alpha
real(kind=dp), intent(in) :: x(*)
integer(kind=ilp), intent(in) :: incx
real(kind=dp), intent(inout) :: a(lda,*)
integer(kind=ilp), intent(in) :: lda

public pure subroutine stdlib_ssyr(uplo, n, alpha, x, incx, a, lda)

SSYR performs the symmetric rank 1 operation A := alphaxx**T + A, where alpha is a real scalar, x is an n element vector and A is an n by n symmetric matrix.

Arguments

Type IntentOptional Attributes Name
character(len=1), intent(in) :: uplo
integer(kind=ilp), intent(in) :: n
real(kind=sp), intent(in) :: alpha
real(kind=sp), intent(in) :: x(*)
integer(kind=ilp), intent(in) :: incx
real(kind=sp), intent(inout) :: a(lda,*)
integer(kind=ilp), intent(in) :: lda