35 #ifndef _BLAZE_MATH_LAPACK_CLAPACK_UNGLQ_H_ 36 #define _BLAZE_MATH_LAPACK_CLAPACK_UNGLQ_H_ 55 #if !defined(INTEL_MKL_VERSION) 58 void cunglq_(
int* m,
int* n,
int* k,
float* A,
int* lda,
float* tau,
59 float* work,
int* lwork,
int* info );
60 void zunglq_(
int* m,
int* n,
int* k,
double* A,
int* lda,
double* tau,
61 double* work,
int* lwork,
int* info );
82 void unglq(
int m,
int n,
int k, complex<float>* A,
int lda,
const complex<float>* tau,
83 complex<float>* work,
int lwork,
int* info );
85 void unglq(
int m,
int n,
int k, complex<double>* A,
int lda,
const complex<double>* tau,
86 complex<double>* work,
int lwork,
int* info );
122 inline void unglq(
int m,
int n,
int k, complex<float>* A,
int lda,
const complex<float>* tau,
123 complex<float>* work,
int lwork,
int* info )
127 #if defined(INTEL_MKL_VERSION) 129 using ET = MKL_Complex8;
134 cunglq_( &m, &n, &k, reinterpret_cast<ET*>( A ), &lda,
135 const_cast<ET*>( reinterpret_cast<const ET*>( tau ) ),
136 reinterpret_cast<ET*>( work ), &lwork, info );
172 inline void unglq(
int m,
int n,
int k, complex<double>* A,
int lda,
const complex<double>* tau,
173 complex<double>* work,
int lwork,
int* info )
177 #if defined(INTEL_MKL_VERSION) 179 using ET = MKL_Complex16;
184 zunglq_( &m, &n, &k, reinterpret_cast<ET*>( A ), &lda,
185 const_cast<ET*>( reinterpret_cast<const ET*>( tau ) ),
186 reinterpret_cast<ET*>( work ), &lwork, info );
Namespace of the Blaze C++ math library.
Definition: Blaze.h:58
void unglq(int m, int n, int k, complex< float > *A, int lda, const complex< float > *tau, complex< float > *work, int lwork, int *info)
LAPACK kernel for the reconstruction of the orthogonal matrix Q from a LQ decomposition.
Definition: unglq.h:122
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