static VALUE rb_gsl_linalg_complex_householder_hv(VALUE obj, VALUE t, VALUE vv, VALUE ww) { gsl_vector_complex *v = NULL, *w = NULL; gsl_complex *tau; CHECK_COMPLEX(t); CHECK_VECTOR_COMPLEX(vv); CHECK_VECTOR_COMPLEX(ww); Data_Get_Struct(t, gsl_complex, tau); Data_Get_Struct(vv, gsl_vector_complex, v); Data_Get_Struct(ww, gsl_vector_complex, w); gsl_linalg_complex_householder_hv(*tau, v, w); return ww; }
/** * C++ version of gsl_linalg_complex_householder_hv(). * @param tau A scalar * @param v A vector * @param w Another vector * @return Error code on failure */ inline int complex_householder_hv( complex& tau, vector_complex const& v, vector_complex& w ){ return gsl_linalg_complex_householder_hv( tau.get(), v.get(), w.get() ); }