inline void herk( const Order order, const UpLo uplo, const Trans trans, const fortran_int_t n, const fortran_int_t k, const float alpha, const float* a, const fortran_int_t lda, const float beta, float* c, const fortran_int_t ldc ) { BOOST_STATIC_ASSERT( (is_same<Order, tag::column_major>::value) ); BLAS_SSYRK( &blas_option< UpLo >::value, &blas_option< Trans >::value, &n, &k, &alpha, a, &lda, &beta, c, &ldc ); }
inline void syrk( char const uplo, char const trans, integer_t const n, integer_t const k, float const alpha, float* a, integer_t const lda, float const beta, float* c, integer_t const ldc ) { BLAS_SSYRK( &uplo, &trans, &n, &k, &alpha, a, &lda, &beta, c, &ldc ); }