inline void sbmv( char const uplo, integer_t const n, integer_t const k, float const alpha, float* a, integer_t const lda, float* x, integer_t const incx, float const beta, float* y, integer_t const incy ) { BLAS_SSBMV( &uplo, &n, &k, &alpha, a, &lda, x, &incx, &beta, y, &incy ); }
inline void hbmv( const Order order, const UpLo uplo, const fortran_int_t n, const fortran_int_t k, const float alpha, const float* a, const fortran_int_t lda, const float* x, const fortran_int_t incx, const float beta, float* y, const fortran_int_t incy ) { BOOST_STATIC_ASSERT( (is_same<Order, tag::column_major>::value) ); BLAS_SSBMV( &blas_option< UpLo >::value, &n, &k, &alpha, a, &lda, x, &incx, &beta, y, &incy ); }