12#ifndef TLAPACK_LEGACY_UNG2R_HH
13#define TLAPACK_LEGACY_UNG2R_HH
43 template <
typename TA,
typename TT>
46 using internal::create_matrix;
47 using internal::create_vector;
60 auto tau_ = create_vector((
TT*)
tau, min(m, n));
#define tlapack_check_false(cond)
Throw an error if cond is true.
Definition exceptionHandling.hpp:113
int ung2r(idx_t m, idx_t n, idx_t k, TA *A, idx_t lda, const TT *tau)
Generates a m-by-n matrix Q with orthogonal columns.
Definition ung2r.hpp:44
typename traits::real_type_traits< Types..., int >::type real_type
The common real type of the list of types.
Definition scalar_type_traits.hpp:113