CAMLprim value ml_gsl_blas_ssyrk(value uplo, value trans, value alpha, value A, value beta, value C) { _DECLARE_MATRIX2(A, C); _CONVERT_MATRIX2(A, C); gsl_blas_ssyrk(CBLAS_UPLO_val(uplo), CBLAS_TRANS_val(trans), Double_val(alpha), &m_A, Double_val(beta), &m_C); return Val_unit; }
/** * C++ version of gsl_blas_ssyrk(). * @param Uplo Upper or lower triangular * @param Trans Transpose type * @param alpha A constant * @param A A matrix * @param beta Another constant * @param C Another matrix * @return Error code on failure */ int ssyrk( CBLAS_UPLO_t Uplo, CBLAS_TRANSPOSE_t Trans, float alpha, matrix_float const& A, float beta, matrix_float& C ){ return gsl_blas_ssyrk( Uplo, Trans, alpha, A.get(), beta, C.get() ); }