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