Exemple #1
0
CAMLprim value ml_gsl_blas_ssyr2k(value uplo, value trans, value alpha,
                                  value A, value B, value beta, value C)
{
    _DECLARE_MATRIX3(A, B, C);
    _CONVERT_MATRIX3(A, B, C);
    gsl_blas_ssyr2k(CBLAS_UPLO_val(uplo), CBLAS_TRANS_val(trans),
                    Double_val(alpha), &m_A, &m_B,
                    Double_val(beta), &m_C);
    return Val_unit;
}
Exemple #2
0
    /**
     * C++ version of gsl_blas_ssyr2k().
     * @param Uplo Upper or lower triangular
     * @param Trans Transpose type
     * @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 ssyr2k( CBLAS_UPLO_t Uplo, CBLAS_TRANSPOSE_t Trans, float alpha,
		matrix_float const& A, matrix_float const& B, float beta, matrix_float& C ){
      return gsl_blas_ssyr2k( Uplo, Trans, alpha, A.get(), B.get(), beta, C.get() ); }