inline void hbmv( char const uplo, integer_t const n, integer_t const k,
traits::complex_d const alpha, traits::complex_d* a,
integer_t const lda, traits::complex_d* x, integer_t const incx,
traits::complex_d const beta, traits::complex_d* y,
integer_t const incy ) {
BLAS_ZHBMV( &uplo, &n, &k, traits::complex_ptr(&alpha),
traits::complex_ptr(a), &lda, traits::complex_ptr(x), &incx,
traits::complex_ptr(&beta), traits::complex_ptr(y), &incy );
}
inline void hbmv( const Order order, const UpLo uplo, const fortran_int_t n,
const fortran_int_t k, const std::complex<double> alpha,
const std::complex<double>* a, const fortran_int_t lda,
const std::complex<double>* x, const fortran_int_t incx,
const std::complex<double> beta, std::complex<double>* y,
const fortran_int_t incy ) {
BOOST_STATIC_ASSERT( (is_same<Order, tag::column_major>::value) );
BLAS_ZHBMV( &blas_option< UpLo >::value, &n, &k, &alpha, a, &lda, x,
&incx, &beta, y, &incy );
}
