Exemplo n.º 1
0
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;
}
Exemplo n.º 2
0
    /**
     * 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() ); }