公共接口 hpr
HPR 执行厄米特秩 1 操作 A := alpha*x*x**H + A，其中 alpha 是一个实数标量，x 是一个 n 元素向量，A 是一个 n×n 的厄米特矩阵，以打包形式提供。
子程序
公共纯子程序 chpr(uplo, n, alpha, x, incx, ap)
参数
| 类型 | 意图 | 可选 | 属性 | 名称 | ||
|---|---|---|---|---|---|---|
| 字符(len=1)， | intent(in) | :: | uplo | |||
| 整数(kind=ilp)， | intent(in) | :: | n | |||
| 实数(kind=sp)， | intent(in) | :: | alpha | |||
| 复数(kind=sp)， | intent(in) | :: | x(*) | |||
| 整数(kind=ilp)， | intent(in) | :: | incx | |||
| 复数(kind=sp)， | intent(inout) | :: | ap(*) |
公共纯子程序 zhpr(uplo, n, alpha, x, incx, ap)
参数
| 类型 | 意图 | 可选 | 属性 | 名称 | ||
|---|---|---|---|---|---|---|
| 字符(len=1)， | intent(in) | :: | uplo | |||
| 整数(kind=ilp)， | intent(in) | :: | n | |||
| 实数(kind=dp)， | intent(in) | :: | alpha | |||
| 复数(kind=dp)， | intent(in) | :: | x(*) | |||
| 整数(kind=ilp)， | intent(in) | :: | incx | |||
| 复数(kind=dp)， | intent(inout) | :: | ap(*) |
模块过程
公共纯子程序 stdlib_chpr(uplo, n, alpha, x, incx, ap)
CHPR 执行厄米特秩 1 操作 A := alpha*x*x**H + A，其中 alpha 是一个实数标量，x 是一个 n 元素向量，A 是一个 n×n 的厄米特矩阵，以打包形式提供。
参数
| 类型 | 意图 | 可选 | 属性 | 名称 | ||
|---|---|---|---|---|---|---|
| 字符(len=1)， | intent(in) | :: | uplo | |||
| 整数(kind=ilp)， | intent(in) | :: | n | |||
| 实数(kind=sp)， | intent(in) | :: | alpha | |||
| 复数(kind=sp)， | intent(in) | :: | x(*) | |||
| 整数(kind=ilp)， | intent(in) | :: | incx | |||
| 复数(kind=sp)， | intent(inout) | :: | ap(*) |
公共纯子程序 stdlib_zhpr(uplo, n, alpha, x, incx, ap)
ZHPR 执行厄米特秩 1 操作 A := alpha*x*x**H + A，其中 alpha 是一个实数标量，x 是一个 n 元素向量，A 是一个 n×n 的厄米特矩阵，以打包形式提供。
参数
| 类型 | 意图 | 可选 | 属性 | 名称 | ||
|---|---|---|---|---|---|---|
| 字符(len=1)， | intent(in) | :: | uplo | |||
| 整数(kind=ilp)， | intent(in) | :: | n | |||
| 实数(kind=dp)， | intent(in) | :: | alpha | |||
| 复数(kind=dp)， | intent(in) | :: | x(*) | |||
| 整数(kind=ilp)， | intent(in) | :: | incx | |||
| 复数(kind=dp)， | intent(inout) | :: | ap(*) |