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