inline void sbmv( char const uplo, integer_t const n, integer_t const k,
double const alpha, double* a, integer_t const lda, double* x,
integer_t const incx, double const beta, double* y,
integer_t const incy ) {
BLAS_DSBMV( &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 double alpha, const double* a,
const fortran_int_t lda, const double* x, const fortran_int_t incx,
const double beta, double* y, const fortran_int_t incy ) {
BOOST_STATIC_ASSERT( (is_same<Order, tag::column_major>::value) );
BLAS_DSBMV( &blas_option< UpLo >::value, &n, &k, &alpha, a, &lda, x,
&incx, &beta, y, &incy );
}