11#ifndef TLAPACK_BLAS_ROTMG_HH
12#define TLAPACK_BLAS_ROTMG_HH
129 if (abs(
q1) > abs(
q2)) {
133 const T
u =
one -
h[2] *
h[1];
150 const T
u =
one +
h[0] *
h[3];
214#ifdef TLAPACK_USE_LAPACKPP
#define TLAPACK_REAL
Macro for tlapack::concepts::Real compatible with C++17.
Definition concepts.hpp:918
int rotmg(T &d1, T &d2, T &a, const T &b, T h[4])
Construct modified (fast) plane rotation, H, that eliminates b, such that.
Definition rotmg.hpp:95
#define tlapack_check_false(cond)
Throw an error if cond is true.
Definition exceptionHandling.hpp:113
Sort the numbers in D in increasing order (if ID = 'I') or in decreasing order (if ID = 'D' ).
Definition arrayTraits.hpp:15
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