herk 接口

public interface herk

HERK 执行以下厄米特秩 k 运算之一:C := alphaAAH + betaC 或 C := alphaAHA + betaC,其中 alpha 和 beta 是实数标量,C 是一个 n×n 厄米特矩阵,A 是第一个情况下的 n×k 矩阵,第二个情况下的 k×n 矩阵。


子程序

public pure subroutine cherk(uplo, trans, n, k, alpha, a, lda, beta, c, ldc)

参数

类型 意图可选 属性 名称
character(len=1), intent(in) :: uplo
character(len=1), intent(in) :: trans
integer(kind=ilp), intent(in) :: n
integer(kind=ilp), intent(in) :: k
real(kind=sp), intent(in) :: alpha
complex(kind=sp), intent(in) :: a(lda,*)
integer(kind=ilp), intent(in) :: lda
real(kind=sp), intent(in) :: beta
complex(kind=sp), intent(inout) :: c(ldc,*)
integer(kind=ilp), intent(in) :: ldc

public pure subroutine zherk(uplo, trans, n, k, alpha, a, lda, beta, c, ldc)

参数

类型 意图可选 属性 名称
character(len=1), intent(in) :: uplo
character(len=1), intent(in) :: trans
integer(kind=ilp), intent(in) :: n
integer(kind=ilp), intent(in) :: k
real(kind=dp), intent(in) :: alpha
complex(kind=dp), intent(in) :: a(lda,*)
integer(kind=ilp), intent(in) :: lda
real(kind=dp), intent(in) :: beta
complex(kind=dp), intent(inout) :: c(ldc,*)
integer(kind=ilp), intent(in) :: ldc

模块过程

public pure subroutine stdlib_cherk(uplo, trans, n, k, alpha, a, lda, beta, c, ldc)

CHERK 执行以下厄米特秩 k 运算之一:C := alphaAAH + betaC 或 C := alphaAHA + betaC,其中 alpha 和 beta 是实数标量,C 是一个 n×n 厄米特矩阵,A 是第一个情况下的 n×k 矩阵,第二个情况下的 k×n 矩阵。

参数

类型 意图可选 属性 名称
character(len=1), intent(in) :: uplo
character(len=1), intent(in) :: trans
integer(kind=ilp), intent(in) :: n
integer(kind=ilp), intent(in) :: k
real(kind=sp), intent(in) :: alpha
complex(kind=sp), intent(in) :: a(lda,*)
integer(kind=ilp), intent(in) :: lda
real(kind=sp), intent(in) :: beta
complex(kind=sp), intent(inout) :: c(ldc,*)
integer(kind=ilp), intent(in) :: ldc

public pure subroutine stdlib_zherk(uplo, trans, n, k, alpha, a, lda, beta, c, ldc)

ZHERK 执行以下厄米特秩 k 运算之一:C := alphaAAH + betaC 或 C := alphaAHA + betaC,其中 alpha 和 beta 是实数标量,C 是一个 n×n 厄米特矩阵,A 是第一个情况下的 n×k 矩阵,第二个情况下的 k×n 矩阵。

参数

类型 意图可选 属性 名称
character(len=1), intent(in) :: uplo
character(len=1), intent(in) :: trans
integer(kind=ilp), intent(in) :: n
integer(kind=ilp), intent(in) :: k
real(kind=dp), intent(in) :: alpha
complex(kind=dp), intent(in) :: a(lda,*)
integer(kind=ilp), intent(in) :: lda
real(kind=dp), intent(in) :: beta
complex(kind=dp), intent(inout) :: c(ldc,*)
integer(kind=ilp), intent(in) :: ldc