Beispiel #1
0
CAMLprim value ml_gsl_blas_strmv(value uplo, value transa, value diag,
                                 value A, value X)
{
    _DECLARE_MATRIX(A);
    _DECLARE_VECTOR(X);
    _CONVERT_MATRIX(A);
    _CONVERT_VECTOR(X);
    gsl_blas_strmv(CBLAS_UPLO_val(uplo), CBLAS_TRANS_val(transa),
                   CBLAS_DIAG_val(diag), &m_A, &v_X);
    return Val_unit;
}
Beispiel #2
0
    /**
     * C++ version of gsl_blas_strmv().
     * @param Uplo Upper or lower triangular
     * @param TransA Transpose type
     * @param Diag Diagonal type
     * @param A A matrix
     * @param X A vector
     * @return Error code on failure
     */
    int
    strmv( CBLAS_UPLO_t Uplo, CBLAS_TRANSPOSE_t TransA, CBLAS_DIAG_t Diag,
	   matrix_float const& A, vector_float& X ){
      return gsl_blas_strmv( Uplo, TransA, Diag, A.get(), X.get() ); }