Function chpr

src/tests/correctness/blas-lapack.c:439–443

}

void
chpr(char uplo, int n, float alpha, complex *x, int incx, complex *ap )
{
   chpr_( &uplo, &n, &alpha, x, &incx, ap );
}

void
zhpr(char uplo, int n, double alpha, doublecomplex *x, int incx, doublecomplex *ap )