コード例 #1
0
ファイル: sbmv.hpp プロジェクト: fluxdark/jflib
 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 );
 }
コード例 #2
0
ファイル: hbmv.hpp プロジェクト: CQMP/scripts
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 );
}