公共接口 hpr2
HPR2 执行厄米特秩 2 运算 A := alpha*x*y**H + conjg( alpha )*y*x**H + A，其中 alpha 是一个标量，x 和 y 是 n 元素向量，A 是一个 n×n 厄米特矩阵，以打包形式提供。
子程序
public pure subroutine chpr2(uplo, n, alpha, x, incx, y, incy, ap)
参数
| 类型 | 意图 | 可选 | 属性 | 名称 | ||
|---|---|---|---|---|---|---|
| character(len=1), | intent(in) | :: | uplo | |||
| integer(kind=ilp), | intent(in) | :: | n | |||
| complex(kind=sp), | intent(in) | :: | alpha | |||
| complex(kind=sp), | intent(in) | :: | x(*) | |||
| integer(kind=ilp), | intent(in) | :: | incx | |||
| complex(kind=sp), | intent(in) | :: | y(*) | |||
| integer(kind=ilp), | intent(in) | :: | incy | |||
| complex(kind=sp), | intent(inout) | :: | ap(*) |
public pure subroutine zhpr2(uplo, n, alpha, x, incx, y, incy, ap)
参数
| 类型 | 意图 | 可选 | 属性 | 名称 | ||
|---|---|---|---|---|---|---|
| character(len=1), | intent(in) | :: | uplo | |||
| integer(kind=ilp), | intent(in) | :: | n | |||
| complex(kind=dp), | intent(in) | :: | alpha | |||
| complex(kind=dp), | intent(in) | :: | x(*) | |||
| integer(kind=ilp), | intent(in) | :: | incx | |||
| complex(kind=dp), | intent(in) | :: | y(*) | |||
| integer(kind=ilp), | intent(in) | :: | incy | |||
| complex(kind=dp), | intent(inout) | :: | ap(*) |
模块过程
public pure subroutine stdlib_chpr2(uplo, n, alpha, x, incx, y, incy, ap)
CHPR2 执行厄米特秩 2 运算 A := alpha*x*y**H + conjg( alpha )*y*x**H + A，其中 alpha 是一个标量，x 和 y 是 n 元素向量，A 是一个 n×n 厄米特矩阵，以打包形式提供。
参数
| 类型 | 意图 | 可选 | 属性 | 名称 | ||
|---|---|---|---|---|---|---|
| character(len=1), | intent(in) | :: | uplo | |||
| integer(kind=ilp), | intent(in) | :: | n | |||
| complex(kind=sp), | intent(in) | :: | alpha | |||
| complex(kind=sp), | intent(in) | :: | x(*) | |||
| integer(kind=ilp), | intent(in) | :: | incx | |||
| complex(kind=sp), | intent(in) | :: | y(*) | |||
| integer(kind=ilp), | intent(in) | :: | incy | |||
| complex(kind=sp), | intent(inout) | :: | ap(*) |
public pure subroutine stdlib_zhpr2(uplo, n, alpha, x, incx, y, incy, ap)
ZHPR2 执行厄米特秩 2 运算 A := alpha*x*y**H + conjg( alpha )*y*x**H + A，其中 alpha 是一个标量，x 和 y 是 n 元素向量，A 是一个 n×n 厄米特矩阵，以打包形式提供。
参数
| 类型 | 意图 | 可选 | 属性 | 名称 | ||
|---|---|---|---|---|---|---|
| character(len=1), | intent(in) | :: | uplo | |||
| integer(kind=ilp), | intent(in) | :: | n | |||
| complex(kind=dp), | intent(in) | :: | alpha | |||
| complex(kind=dp), | intent(in) | :: | x(*) | |||
| integer(kind=ilp), | intent(in) | :: | incx | |||
| complex(kind=dp), | intent(in) | :: | y(*) | |||
| integer(kind=ilp), | intent(in) | :: | incy | |||
| complex(kind=dp), | intent(inout) | :: | ap(*) |