her2k 接口

公共接口 her2k

HER2K 执行以下其中一个埃尔米特秩 2k 运算:C := alphaABH + conjg( alpha )BAH + betaC 或 C := alphaAHB + conjg( alpha )BHA + betaC,其中 alpha 和 beta 是标量,beta 为实数,C 是一个 n×n 埃尔米特矩阵,A 和 B 在第一种情况下是 n×k 矩阵,在第二种情况下是 k×n 矩阵。


子程序

公共纯子程序 cher2k(uplo, trans, n, k, alpha, a, lda, b, ldb, beta, c, ldc)

参数

类型 意图可选 属性 名称
字符(len=1), 意图(in) :: uplo
字符(len=1), 意图(in) :: trans
整数(kind=ilp), 意图(in) :: n
整数(kind=ilp), 意图(in) :: k
复数(kind=sp), 意图(in) :: alpha
复数(kind=sp), 意图(in) :: a(lda,*)
整数(kind=ilp), 意图(in) :: lda
复数(kind=sp), 意图(in) :: b(ldb,*)
整数(kind=ilp), 意图(in) :: ldb
实数(kind=sp), 意图(in) :: beta
复数(kind=sp), 意图(inout) :: c(ldc,*)
整数(kind=ilp), 意图(in) :: ldc

公共纯子程序 zher2k(uplo, trans, n, k, alpha, a, lda, b, ldb, beta, c, ldc)

参数

类型 意图可选 属性 名称
字符(len=1), 意图(in) :: uplo
字符(len=1), 意图(in) :: trans
整数(kind=ilp), 意图(in) :: n
整数(kind=ilp), 意图(in) :: k
复数(kind=dp), 意图(in) :: alpha
复数(kind=dp), 意图(in) :: a(lda,*)
整数(kind=ilp), 意图(in) :: lda
复数(kind=dp), 意图(in) :: b(ldb,*)
整数(kind=ilp), 意图(in) :: ldb
实数(kind=dp), 意图(in) :: beta
复数(kind=dp), 意图(inout) :: c(ldc,*)
整数(kind=ilp), 意图(in) :: ldc

模块过程

公共纯子程序 stdlib_cher2k(uplo, trans, n, k, alpha, a, lda, b, ldb, beta, c, ldc)

CHER2K 执行以下其中一个埃尔米特秩 2k 运算:C := alphaABH + conjg( alpha )BAH + betaC 或 C := alphaAHB + conjg( alpha )BHA + betaC,其中 alpha 和 beta 是标量,beta 为实数,C 是一个 n×n 埃尔米特矩阵,A 和 B 在第一种情况下是 n×k 矩阵,在第二种情况下是 k×n 矩阵。

参数

类型 意图可选 属性 名称
字符(len=1), 意图(in) :: uplo
字符(len=1), 意图(in) :: trans
整数(kind=ilp), 意图(in) :: n
整数(kind=ilp), 意图(in) :: k
复数(kind=sp), 意图(in) :: alpha
复数(kind=sp), 意图(in) :: a(lda,*)
整数(kind=ilp), 意图(in) :: lda
复数(kind=sp), 意图(in) :: b(ldb,*)
整数(kind=ilp), 意图(in) :: ldb
实数(kind=sp), 意图(in) :: beta
复数(kind=sp), 意图(inout) :: c(ldc,*)
整数(kind=ilp), 意图(in) :: ldc

公共纯子程序 stdlib_zher2k(uplo, trans, n, k, alpha, a, lda, b, ldb, beta, c, ldc)

ZHER2K 执行以下其中一个埃尔米特秩 2k 运算:C := alphaABH + conjg( alpha )BAH + betaC 或 C := alphaAHB + conjg( alpha )BHA + betaC,其中 alpha 和 beta 是标量,beta 为实数,C 是一个 n×n 埃尔米特矩阵,A 和 B 在第一种情况下是 n×k 矩阵,在第二种情况下是 k×n 矩阵。

参数

类型 意图可选 属性 名称
字符(len=1), 意图(in) :: uplo
字符(len=1), 意图(in) :: trans
整数(kind=ilp), 意图(in) :: n
整数(kind=ilp), 意图(in) :: k
复数(kind=dp), 意图(in) :: alpha
复数(kind=dp), 意图(in) :: a(lda,*)
整数(kind=ilp), 意图(in) :: lda
复数(kind=dp), 意图(in) :: b(ldb,*)
整数(kind=ilp), 意图(in) :: ldb
实数(kind=dp), 意图(in) :: beta
复数(kind=dp), 意图(inout) :: c(ldc,*)
整数(kind=ilp), 意图(in) :: ldc