Page MenuHomec4science
Files F77560171

lapack_inter.h
No OneTemporary
Actions

File Metadata

Created
Thu, Aug 15, 04:39

lapack_inter.h
View Options

// Interface for LAPACK function
# ifndef LAPACK_INTER_H
# define LAPACK_INTER_H
#include <complex>
typedef int lapack_int;
typedef complex<float> lapack_complex_float;
typedef complex<double> lapack_complex_double;
#ifdef _WIN32
//#define MKL_Complex8 lapack_complex_float
//#define MKL_Complex16 lapack_complex_double
#include "mkl.h"
inline void ZPPTRF( char* uplo, const lapack_int* n, lapack_complex_double* ap, lapack_int* info ) {
ZPPTRF(uplo, (int*)n, (MKL_Complex16*)ap, (int*)info);
}
inline void ZPPTRI( char* uplo, const lapack_int* n, lapack_complex_double* ap, lapack_int* info ){
ZPPTRI(uplo, (int*)n, (MKL_Complex16*)ap, (int*)info);
}
#else
#define DGETRF dgetrf_
#define DGETRS dgetrs_
#define DGETRI dgetri_
#define ZPPTRF zpptrf_
#define ZPPTRI zpptri_
#ifdef __cplusplus
extern "C" {
#endif /* __cplusplus */
void dgetrf_( const lapack_int* m, const lapack_int* n, double* a, const lapack_int* lda,
lapack_int* ipiv, lapack_int* info );
void dgetrs_( const char* trans, const lapack_int* n, const lapack_int* nrhs,
const double* a, const lapack_int* lda, const lapack_int* ipiv,
double* b, const lapack_int* ldb, lapack_int* info );
void dgetri_( const lapack_int* n, double* a, const lapack_int* lda,
const lapack_int* ipiv, double* work, const lapack_int* lwork,
lapack_int* info );
void zpptrf_( const char* uplo, const lapack_int* n, lapack_complex_double* ap,
lapack_int* info );
void zpptri_( const char* uplo, const lapack_int* n, lapack_complex_double* ap,
lapack_int* info );
#ifdef __cplusplus
}
#endif /* __cplusplus */
#endif
#endif /* lapack_intER_H */

Event Timeline

c4science · Help