35 #ifndef _BLAZE_MATH_LAPACK_CLAPACK_GESVD_H_ 36 #define _BLAZE_MATH_LAPACK_CLAPACK_GESVD_H_ 56 #if !defined(INTEL_MKL_VERSION) 59 void sgesvd_(
char* jobu,
char* jobv,
int* m,
int* n,
float* A,
int* lda,
float* s,
float* U,
60 int* ldu,
float* V,
int* ldv,
float* work,
int* lwork,
int* info,
62 void dgesvd_(
char* jobu,
char* jobv,
int* m,
int* n,
double* A,
int* lda,
double* s,
double* U,
63 int* ldu,
double* V,
int* ldv,
double* work,
int* lwork,
int* info,
65 void cgesvd_(
char* jobu,
char* jobv,
int* m,
int* n,
float* A,
int* lda,
float* s,
float* U,
66 int* ldu,
float* V,
int* ldv,
float* work,
int* lwork,
float* rwork,
int* info,
68 void zgesvd_(
char* jobu,
char* jobv,
int* m,
int* n,
double* A,
int* lda,
double* s,
double* U,
69 int* ldu,
double* V,
int* ldv,
double* work,
int* lwork,
double* rwork,
int* info,
91 void gesvd(
char jobu,
char jobv,
int m,
int n,
float* A,
int lda,
92 float* s,
float* U,
int ldu,
float* V,
int ldv,
93 float* work,
int lwork,
int* info );
95 void gesvd(
char jobu,
char jobv,
int m,
int n,
double* A,
int lda,
96 double* s,
double* U,
int ldu,
double* V,
int ldv,
97 double* work,
int lwork,
int* info );
99 void gesvd(
char jobu,
char jobv,
int m,
int n, complex<float>* A,
int lda,
100 float* s, complex<float>* U,
int ldu, complex<float>* V,
int ldv,
101 complex<float>* work,
int lwork,
float* rwork,
int* info );
103 void gesvd(
char jobu,
char jobv,
int m,
int n, complex<double>* A,
int lda,
104 double* s, complex<double>* U,
int ldu, complex<double>* V,
int ldv,
105 complex<double>* work,
int lwork,
double* rwork,
int* info );
172 inline void gesvd(
char jobu,
char jobv,
int m,
int n,
float* A,
int lda,
173 float* s,
float* U,
int ldu,
float* V,
int ldv,
174 float* work,
int lwork,
int* info )
176 #if defined(INTEL_MKL_VERSION) 180 sgesvd_( &jobu, &jobv, &m, &n, A, &lda, s, U, &ldu, V, &ldv, work, &lwork, info,
248 inline void gesvd(
char jobu,
char jobv,
int m,
int n,
double* A,
int lda,
249 double* s,
double* U,
int ldu,
double* V,
int ldv,
250 double* work,
int lwork,
int* info )
252 #if defined(INTEL_MKL_VERSION) 256 dgesvd_( &jobu, &jobv, &m, &n, A, &lda, s, U, &ldu, V, &ldv, work, &lwork, info,
325 inline void gesvd(
char jobu,
char jobv,
int m,
int n, complex<float>* A,
int lda,
326 float* s, complex<float>* U,
int ldu, complex<float>* V,
int ldv,
327 complex<float>* work,
int lwork,
float* rwork,
int* info )
331 #if defined(INTEL_MKL_VERSION) 333 using ET = MKL_Complex8;
338 cgesvd_( &jobu, &jobv, &m, &n, reinterpret_cast<ET*>( A ), &lda, s,
339 reinterpret_cast<ET*>( U ), &ldu, reinterpret_cast<ET*>( V ), &ldv,
340 reinterpret_cast<ET*>( work ), &lwork, rwork, info,
409 inline void gesvd(
char jobu,
char jobv,
int m,
int n, complex<double>* A,
int lda,
410 double* s, complex<double>* U,
int ldu, complex<double>* V,
int ldv,
411 complex<double>* work,
int lwork,
double* rwork,
int* info )
415 #if defined(INTEL_MKL_VERSION) 417 using ET = MKL_Complex16;
422 zgesvd_( &jobu, &jobv, &m, &n, reinterpret_cast<ET*>( A ), &lda, s,
423 reinterpret_cast<ET*>( U ), &ldu, reinterpret_cast<ET*>( V ), &ldv,
424 reinterpret_cast<ET*>( work ), &lwork, rwork, info,
void gesvd(char jobu, char jobv, int m, int n, float *A, int lda, float *s, float *U, int ldu, float *V, int ldv, float *work, int lwork, int *info)
LAPACK kernel for the singular value decomposition (SVD) of the given dense general single precision ...
Definition: gesvd.h:172
Header file for basic type definitions.
Namespace of the Blaze C++ math library.
Definition: Blaze.h:58
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
Size type of the Blaze library.