JCublasJava/src/main/java/jcuda/jcublas/JCublas.java
public static void cublasChpr(char uplo, int n, float alpha, Pointer x, int incx, Pointer AP)
    {
        cublasChprNative(uplo, n, alpha, x, incx, AP);
        checkResultBLAS();
    }
public static void cublasChpr(char uplo, int n, float alpha, Pointer x, int incx, Pointer AP)
    {
        cublasChprNative(uplo, n, alpha, x, incx, AP);
        checkResultBLAS();
    }
<pre>
void
cublasChpr (char uplo, int n, float alpha, const cuComplex *x, int incx,
cuComplex *AP)

performs the hermitian rank 1 operation

A = alpha * x * conjugate(transpose(x)) + A,

where alpha is a single precision real scalar and x is an n element single
precision complex vector. A is a hermitian n x n matrix consisting of single
precision complex elements that is supplied in packed form.

Input
-----
uplo   specifies whether the matrix data is stored in the upper or the lower
triangular part of array AP. If uplo == 'U' or 'u', then the upper
triangular part of A is supplied in AP. If uplo == 'L' or 'l', then
the lower triangular part of A is supplied in AP.
n      specifies the number of rows and columns of the matrix A. It must be
at least zero.
alpha  single precision real scalar multiplier applied to x * conjugate(transpose(x)).
x      single precision array of length at least (1 + (n - 1) * abs(incx)).
incx   storage spacing between elements of x. incx must not be zero.
AP     single precision complex array with at least ((n * (n + 1)) / 2) elements. If
uplo == 'U' or 'u', the array AP contains the upper triangular part
of the hermitian matrix A, packed sequentially, column by column;
that is, if i <= j, then A[i,j] is stored is AP[i+(j*(j+1)/2)]. If
uplo == 'L' or 'L', the array AP contains the lower triangular part
of the hermitian matrix A, packed sequentially, column by column;
that is, if i >= j, then A[i,j] is stored in AP[i+((2*n-j+1)*j)/2].
The imaginary parts of the diagonal elements need not be set, they
are assumed to be zero, and on exit they are set to zero.

Output
------
A      updated according to A = alpha * x * conjugate(transpose(x)) + A

Reference: http://www.netlib.org/blas/chpr.f

Error status for this function can be retrieved via cublasGetError().

Error Status
------------
CUBLAS_STATUS_NOT_INITIALIZED  if CUBLAS library has not been initialized
CUBLAS_STATUS_INVALID_VALUE    if n < 0, or incx == 0
CUBLAS_STATUS_EXECUTION_FAILED if function failed to launch on GPU
</pre>