void magma_cher(
magma_uplo_t uplo,
magma_int_t n,
float alpha,
const magmaFloatComplex *dx, magma_int_t incx,
magmaFloatComplex *dA, magma_int_t ldda )
{
cublasCher(
cublas_uplo_const( uplo ),
n,
alpha, dx, incx,
dA, ldda );
}
inline void her( const Order, const UpLo, const int n, const float alpha,
const std::complex<float>* x, const int incx, std::complex<float>* a,
const int lda ) {
BOOST_STATIC_ASSERT( (is_same<Order, tag::column_major>::value) );
cublasCher( blas_option< UpLo >::value, n, alpha, x, incx, a, lda );
}
