syr 接口

public interface syr

SYR 执行对称秩 1 操作 A := alpha*x*x**T + A,其中 alpha 是一个实数标量,x 是一个 n 元素向量,A 是一个 n×n 对称矩阵。


子例程

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

参数

类型 意图可选 属性 名称
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)

参数

类型 意图可选 属性 名称
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

模块过程

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

DSYR 执行对称秩 1 操作 A := alpha*x*x**T + A,其中 alpha 是一个实数标量,x 是一个 n 元素向量,A 是一个 n×n 对称矩阵。

参数

类型 意图可选 属性 名称
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 执行对称秩 1 操作 A := alpha*x*x**T + A,其中 alpha 是一个实数标量,x 是一个 n 元素向量,A 是一个 n×n 对称矩阵。

参数

类型 意图可选 属性 名称
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