35 #ifndef _BLAZE_MATH_LAPACK_CLAPACK_UNGL2_H_ 36 #define _BLAZE_MATH_LAPACK_CLAPACK_UNGL2_H_ 55 #if !defined(INTEL_MKL_VERSION) 58 void cungl2_(
int* m,
int* n,
int* k,
float* A,
int* lda,
float* tau,
float* work,
int* info );
59 void zungl2_(
int* m,
int* n,
int* k,
double* A,
int* lda,
double* tau,
double* work,
int* info );
80 void ungl2(
int m,
int n,
int k, complex<float>* A,
int lda,
const complex<float>* tau,
81 complex<float>* work,
int* info );
83 void ungl2(
int m,
int n,
int k, complex<double>* A,
int lda,
const complex<double>* tau,
84 complex<double>* work,
int* info );
119 inline void ungl2(
int m,
int n,
int k, complex<float>* A,
int lda,
const complex<float>* tau,
120 complex<float>* work,
int* info )
124 #if defined(INTEL_MKL_VERSION) 126 using ET = MKL_Complex8;
131 cungl2_( &m, &n, &k, reinterpret_cast<ET*>( A ), &lda,
132 const_cast<ET*>( reinterpret_cast<const ET*>( tau ) ),
133 reinterpret_cast<ET*>( work ), info );
168 inline void ungl2(
int m,
int n,
int k, complex<double>* A,
int lda,
const complex<double>* tau,
169 complex<double>* work,
int* info )
173 #if defined(INTEL_MKL_VERSION) 175 using ET = MKL_Complex16;
180 zungl2_( &m, &n, &k, reinterpret_cast<ET*>( A ), &lda,
181 const_cast<ET*>( reinterpret_cast<const ET*>( tau ) ),
182 reinterpret_cast<ET*>( work ), info );
Namespace of the Blaze C++ math library.
Definition: Blaze.h:58
void ungl2(int m, int n, int k, complex< float > *A, int lda, const complex< float > *tau, complex< float > *work, int *info)
LAPACK kernel for the reconstruction of the orthogonal matrix Q from a LQ decomposition.
Definition: ungl2.h:119
Header file for the complex data type.
#define BLAZE_STATIC_ASSERT(expr)
Compile time assertion macro.In case of an invalid compile time expression, a compilation error is cr...
Definition: StaticAssert.h:112