C++ (Cpp) gsl_blas_ssyr Examples

Example #1

File: mlgsl_blas_float.c Project: ptrf/LCDE

CAMLprim value ml_gsl_blas_ssyr(value uplo ,value alpha, value X, value A)
{
    _DECLARE_MATRIX(A);
    _DECLARE_VECTOR(X);
    _CONVERT_MATRIX(A);
    _CONVERT_VECTOR(X);
    gsl_blas_ssyr(CBLAS_UPLO_val(uplo), Double_val(alpha),
                  &v_X, &m_A);
    return Val_unit;
}

Example #2

File: blas.hpp Project: fujiisoup/MyLibrary

 /**
  * C++ version of gsl_blas_ssyr().
  * @param Uplo Upper or lower triangular
  * @param alpha A constant
  * @param X A vector
  * @param A A matrix
  * @return Error code on failure
  */
 int ssyr( CBLAS_UPLO_t Uplo, float alpha, vector_float const& X, matrix_float& A ){
   return gsl_blas_ssyr( Uplo, alpha, X.get(), A.get() ); }