---
title: ?her2
description: "埃尔米特矩阵秩2更新，。"
url: https://www.hikunpeng.com/document/detail/zh/kunpengboostkithistory/2200/accel/kunpengaccel_kml_16_0040.html
sourcePath: /source/zh/kunpengboostkithistory/2200/accel/kunpengaccel_kml_16_0040.html
indexId: 04e57fbadb4808db6cab02ade4c68fa39166bf269fb2fccdfb35fb76590573eb74
---
# ?her2

埃尔米特矩阵秩2更新，。

A是n*n的埃尔米特矩阵，alpha是乘法系数，x和y是有n个元素的向量。

#### 接口定义

C interface：

void cblas_cher2(const enum CBLAS_ORDER order, const enum CBLAS_UPLO Uplo, const BLASINT N, const void *alpha, const void *X, const BLASINT incX, const void *Y, const BLASINT incY, void *A, const BLASINT lda);

void cblas_zher2(const enum CBLAS_ORDER order, const enum CBLAS_UPLO Uplo, const BLASINT N, const void *alpha, const void *X, const BLASINT incX, const void *Y, const BLASINT incY, void *A, const BLASINT lda);

Fortran interface：

CALL CHER2(UPLO, N, ALPHA, X, INCX, Y, INCY, A, LDA)

CALL ZHER2(UPLO, N, ALPHA, X, INCX, Y, INCY, A, LDA)


#### 参数

| 参数名 | 类型 | 描述 | 输入/输出 |
| --- | --- | --- | --- |
| order | 枚举类型CBLAS\_ORDER | 表示矩阵是行主序或列主序。 | 输入 |
| Uplo | 枚举类型CBLAS\_UPLO | 埃尔米特矩阵存储方式（上三角或下三角）。 如果Uplo=CblasUpper，则使用A的上三角。 如果Uplo=CblasLower，则使用A的下三角。 | 输入 |
| N | 整型数 | 向量X的元素个数。 | 输入 |
| alpha | 在cher2中，alpha为单精度复数类型。 在zher2中，alpha为双精度复数类型。 | 乘法系数。 | 输入 |
| X | 在cher2中，X为单精度复数类型。 在zher2中，X为双精度复数类型。 | 矩阵X，长度至少 1+(n\-1)\*abs(incX)。 | 输入 |
| incX | 整型数 | 向量X的增长步长，不能为零。 | 输入 |
| Y | 在cher2中，Y为单精度复数类型。 在zher2中，Y为双精度复数类型。 | 矩阵Y，长度至少 1+(n\-1)\*abs(incY)。 | 输入 |
| incY | 整型数 | 向量Y的增长步长，不能为零。 | 输入 |
| A | 在cher2中，A为单精度复数类型。 在zher2中，A为双精度复数类型。 | 矩阵A(lda, n)。 | 输出 |
| lda | 整型数 | 矩阵A的主维度长度，要求lda大于或等于max(1, n)。 | 输入 |


#### 依赖

#include "kblas.h"


#### 示例

C interface：

```
int n = 3;
float alpha[2] = {1.0, 2.9};
int incx = 1, incy = 1;
/**
*              |  (1.0, 0.0)  (13.0, 5.0)  (12.0, 0) |
*         A =  | (13.0, -5.0)  (2.0, 0.0)  (4.0, -18.0) |
*              |  (12.0, 0)  (4.0, 18.0)   (3.0, 0.0) |
*/
float ap[18] = {1.0, 0, 13.0, -5.0, 12.0, 0, 13.0, 5.0, 2.0, 0, 4.0, 18.0, 12.0, 0, 4.0, -18.0, 3.0, 0};
float x[6] = {2.0, -2.0, 14.0, 1, 3.0, 4.0};
float y[6] = {2.0, -2.0, 14.0, 1, 3.0, 4.0};
cblas_cher2(CblasColMajor, CblasLower, n, alpha, x, incx, y, incy, ap, 3);
/**
*             | 17.000000 0.000000      13.000000 5.000000      12.000000 0.000000 |
*  Output A = | 65.000000 55.000000     396.000000 0.000000     4.000000 -18.000000|
*             | 8.000000 28.000000      96.000000 124.000000    53.000000 0.000000 |
*/
```

Fortran interface：

```
INTEGER :: N=3
COMPLEX(4) :: ALPHA=(1.0, 2.9)
INTEGER :: INCX=1
INTEGER :: INCY=1
COMPLEX(4) :: AP(3, 3)
DATA AP/(1.0, 0), (13.0, -5.0), (12.0, 0), (13.0, 5.0), (2.0, 0),
$        (4.0, 18.0), (12.0, 0), (4.0, -18.0), (3.0, 0)/
COMPLEX(4) :: X(3)
DATA X/(2.0, -2.0), (14.0, 1), (3.0, 4.0)/
COMPLEX(4) :: Y(3)
DATA Y/(2.0, -2.0), (14.0, 1), (3.0, 4.0)/
EXTERNAL CHER2
CALL CHER2('L', N, ALPHA, X, INCX, Y, INCY, A, LDA)
*                | 17.000000 0.000000      13.000000 5.000000      12.000000 0.000000 |
*     Output A = | 65.000000 55.000000     396.000000 0.000000     4.000000 -18.000000|
*                | 8.000000 28.000000      96.000000 124.000000    53.000000 0.000000 |
```