CAMLprim value ml_gsl_blas_ssymv(value uplo, value alpha, value A,
value X, value beta, value Y)
{
_DECLARE_MATRIX(A);
_DECLARE_VECTOR2(X, Y);
_CONVERT_MATRIX(A);
_CONVERT_VECTOR2(X, Y);
gsl_blas_ssymv(CBLAS_UPLO_val(uplo), Double_val(alpha),
&m_A, &v_X, Double_val(beta), &v_Y);
return Val_unit;
}
/**
* C++ version of gsl_blas_ssymv().
* @param Uplo Upper or lower triangular
* @param alpha A constant
* @param A A matrix
* @param X A vector
* @param beta Another constant
* @param Y A vector
* @return Error code on failure
*/
int ssymv( CBLAS_UPLO_t Uplo, float alpha, matrix_float const& A,
vector_float const& X, float beta, vector_float& Y ){
return gsl_blas_ssymv( Uplo, alpha, A.get(), X.get(), beta, Y.get() ); }
