inline void her2( const Order order, const UpLo uplo, const int n,
const std::complex<float> alpha, const std::complex<float>* x,
const int incx, const std::complex<float>* y, const int incy,
std::complex<float>* a, const int lda ) {
BOOST_STATIC_ASSERT( (is_same<Order, tag::column_major>::value) );
cublasCher2( blas_option< UpLo >::value, n, alpha, x, incx, y, incy, a,
lda );
}
void magma_cher2(
magma_uplo_t uplo,
magma_int_t n,
magmaFloatComplex alpha,
const magmaFloatComplex *dx, magma_int_t incx,
const magmaFloatComplex *dy, magma_int_t incy,
magmaFloatComplex *dA, magma_int_t ldda )
{
cublasCher2(
cublas_uplo_const( uplo ),
n,
alpha, dx, incx,
dy, incy,
dA, ldda );
}
