Ejemplo n.º 1
0
 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 );
 }
Ejemplo n.º 2
0
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 );
}