CAMLprim value ml_gsl_blas_ssymm(value side, value uplo,
value alpha, value A, value B,
value beta, value C)
{
_DECLARE_MATRIX3(A, B, C);
_CONVERT_MATRIX3(A, B, C);
gsl_blas_ssymm(CBLAS_SIDE_val(side), CBLAS_UPLO_val(uplo),
Double_val(alpha), &m_A, &m_B, Double_val(beta), &m_C);
return Val_unit;
}
/**
* C++ version of gsl_blas_ssymm().
* @param Side Side to apply operation to
* @param Uplo Upper or lower triangular
* @param alpha A constant
* @param A A matrix
* @param B Another matrix
* @param beta Another constant
* @param C Another matrix
* @return Error code on failure
*/
int ssymm( CBLAS_SIDE_t Side, CBLAS_UPLO_t Uplo, float alpha,
matrix_float const& A, matrix_float const& B, float beta, matrix_float& C ){
return gsl_blas_ssymm( Side, Uplo, alpha, A.get(), B.get(), beta, C.get() ); }
