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