remove ATLAS related support
This commit is contained in:
conrad
+1
-273
@@ -27,7 +27,6 @@
|
||||
|
||||
#include "armadillo_bits/compiler_setup.hpp"
|
||||
#include "armadillo_bits/typedef_elem.hpp"
|
||||
#include "armadillo_bits/include_atlas.hpp"
|
||||
#include "armadillo_bits/include_superlu.hpp"
|
||||
|
||||
|
||||
@@ -85,7 +84,7 @@ namespace arma
|
||||
|
||||
|
||||
|
||||
// at this stage we have prototypes for the real blas, lapack and atlas functions
|
||||
// at this stage we have prototypes for actual blas and lapack functions
|
||||
|
||||
// now we make the wrapper functions
|
||||
|
||||
@@ -1221,277 +1220,6 @@ extern "C"
|
||||
}
|
||||
|
||||
#endif
|
||||
|
||||
|
||||
|
||||
#if defined(ARMA_USE_ATLAS)
|
||||
|
||||
float wrapper_cblas_sasum(const int N, const float *X, const int incX)
|
||||
{
|
||||
return cblas_sasum(N, X, incX);
|
||||
}
|
||||
|
||||
double wrapper_cblas_dasum(const int N, const double *X, const int incX)
|
||||
{
|
||||
return cblas_dasum(N, X, incX);
|
||||
}
|
||||
|
||||
|
||||
|
||||
float wrapper_cblas_snrm2(const int N, const float *X, const int incX)
|
||||
{
|
||||
return cblas_snrm2(N, X, incX);
|
||||
}
|
||||
|
||||
double wrapper_cblas_dnrm2(const int N, const double *X, const int incX)
|
||||
{
|
||||
return cblas_dnrm2(N, X, incX);
|
||||
}
|
||||
|
||||
|
||||
|
||||
float wrapper_cblas_sdot(const int N, const float *X, const int incX, const float *Y, const int incY)
|
||||
{
|
||||
return cblas_sdot(N, X, incX, Y, incY);
|
||||
}
|
||||
|
||||
double wrapper_cblas_ddot(const int N, const double *X, const int incX, const double *Y, const int incY)
|
||||
{
|
||||
return cblas_ddot(N, X, incX, Y, incY);
|
||||
}
|
||||
|
||||
void wrapper_cblas_cdotu_sub(const int N, const void *X, const int incX, const void *Y, const int incY, void *dotu)
|
||||
{
|
||||
cblas_cdotu_sub(N, X, incX, Y, incY, dotu);
|
||||
}
|
||||
|
||||
void wrapper_cblas_zdotu_sub(const int N, const void *X, const int incX, const void *Y, const int incY, void *dotu)
|
||||
{
|
||||
cblas_zdotu_sub(N, X, incX, Y, incY, dotu);
|
||||
}
|
||||
|
||||
|
||||
|
||||
void wrapper_cblas_sgemv(const enum CBLAS_ORDER Order, const enum CBLAS_TRANSPOSE TransA, const int M, const int N, const float alpha,
|
||||
const float *A, const int lda, const float *X, const int incX, const float beta, float *Y, const int incY)
|
||||
{
|
||||
cblas_sgemv(Order, TransA, M, N, alpha, A, lda, X, incX, beta, Y, incY);
|
||||
}
|
||||
|
||||
void wrapper_cblas_dgemv(const enum CBLAS_ORDER Order, const enum CBLAS_TRANSPOSE TransA, const int M, const int N, const double alpha,
|
||||
const double *A, const int lda, const double *X, const int incX, const double beta, double *Y, const int incY)
|
||||
{
|
||||
cblas_dgemv(Order, TransA, M, N, alpha, A, lda, X, incX, beta, Y, incY);
|
||||
}
|
||||
|
||||
void wrapper_cblas_cgemv(const enum CBLAS_ORDER Order, const enum CBLAS_TRANSPOSE TransA, const int M, const int N, const void *alpha,
|
||||
const void *A, const int lda, const void *X, const int incX, const void *beta, void *Y, const int incY)
|
||||
{
|
||||
cblas_cgemv(Order, TransA, M, N, alpha, A, lda, X, incX, beta, Y, incY);
|
||||
}
|
||||
|
||||
void wrapper_cblas_zgemv(const enum CBLAS_ORDER Order, const enum CBLAS_TRANSPOSE TransA, const int M, const int N, const void *alpha,
|
||||
const void *A, const int lda, const void *X, const int incX, const void *beta, void *Y, const int incY)
|
||||
{
|
||||
cblas_zgemv(Order, TransA, M, N, alpha, A, lda, X, incX, beta, Y, incY);
|
||||
}
|
||||
|
||||
|
||||
|
||||
void wrapper_cblas_sgemm(const enum CBLAS_ORDER Order, const enum CBLAS_TRANSPOSE TransA, const enum CBLAS_TRANSPOSE TransB,
|
||||
const int M, const int N, const int K, const float alpha,
|
||||
const float *A, const int lda, const float *B, const int ldb, const float beta, float *C, const int ldc)
|
||||
{
|
||||
cblas_sgemm(Order, TransA, TransB, M, N, K, alpha, A, lda, B, ldb, beta, C, ldc);
|
||||
}
|
||||
|
||||
void wrapper_cblas_dgemm(const enum CBLAS_ORDER Order, const enum CBLAS_TRANSPOSE TransA, const enum CBLAS_TRANSPOSE TransB,
|
||||
const int M, const int N, const int K, const double alpha,
|
||||
const double *A, const int lda, const double *B, const int ldb, const double beta, double *C, const int ldc)
|
||||
{
|
||||
cblas_dgemm(Order, TransA, TransB, M, N, K, alpha, A, lda, B, ldb, beta, C, ldc);
|
||||
}
|
||||
|
||||
void wrapper_cblas_cgemm(const enum CBLAS_ORDER Order, const enum CBLAS_TRANSPOSE TransA, const enum CBLAS_TRANSPOSE TransB,
|
||||
const int M, const int N, const int K, const void *alpha,
|
||||
const void *A, const int lda, const void *B, const int ldb, const void *beta, void *C, const int ldc)
|
||||
{
|
||||
cblas_cgemm(Order, TransA, TransB, M, N, K, alpha, A, lda, B, ldb, beta, C, ldc);
|
||||
}
|
||||
|
||||
void wrapper_cblas_zgemm(const enum CBLAS_ORDER Order, const enum CBLAS_TRANSPOSE TransA, const enum CBLAS_TRANSPOSE TransB,
|
||||
const int M, const int N, const int K, const void *alpha,
|
||||
const void *A, const int lda, const void *B, const int ldb, const void *beta, void *C, const int ldc)
|
||||
{
|
||||
cblas_zgemm(Order, TransA, TransB, M, N, K, alpha, A, lda, B, ldb, beta, C, ldc);
|
||||
}
|
||||
|
||||
|
||||
|
||||
void wrapper_cblas_ssyrk(const enum CBLAS_ORDER Order, const enum CBLAS_UPLO Uplo, const enum CBLAS_TRANSPOSE Trans,
|
||||
const int N, const int K, const float alpha,
|
||||
const float *A, const int lda, const float beta, float *C, const int ldc)
|
||||
{
|
||||
cblas_ssyrk(Order, Uplo, Trans, N, K, alpha, A, lda, beta, C, ldc);
|
||||
}
|
||||
|
||||
void wrapper_cblas_dsyrk(const enum CBLAS_ORDER Order, const enum CBLAS_UPLO Uplo, const enum CBLAS_TRANSPOSE Trans,
|
||||
const int N, const int K, const double alpha,
|
||||
const double *A, const int lda, const double beta, double *C, const int ldc)
|
||||
{
|
||||
cblas_dsyrk(Order, Uplo, Trans, N, K, alpha, A, lda, beta, C, ldc);
|
||||
}
|
||||
|
||||
|
||||
|
||||
void wrapper_cblas_cherk(const enum CBLAS_ORDER Order, const enum CBLAS_UPLO Uplo, const enum CBLAS_TRANSPOSE Trans,
|
||||
const int N, const int K, const float alpha,
|
||||
const void *A, const int lda, const float beta, void *C, const int ldc)
|
||||
{
|
||||
cblas_cherk(Order, Uplo, Trans, N, K, alpha, A, lda, beta, C, ldc);
|
||||
}
|
||||
|
||||
void wrapper_cblas_zherk(const enum CBLAS_ORDER Order, const enum CBLAS_UPLO Uplo, const enum CBLAS_TRANSPOSE Trans,
|
||||
const int N, const int K, const double alpha,
|
||||
const void *A, const int lda, const double beta, void *C, const int ldc)
|
||||
{
|
||||
cblas_zherk(Order, Uplo, Trans, N, K, alpha, A, lda, beta, C, ldc);
|
||||
}
|
||||
|
||||
|
||||
|
||||
int wrapper_clapack_sgetrf(const enum CBLAS_ORDER Order, const int M, const int N, float *A, const int lda, int *ipiv)
|
||||
{
|
||||
return clapack_sgetrf(Order, M, N, A, lda, ipiv);
|
||||
}
|
||||
|
||||
int wrapper_clapack_dgetrf(const enum CBLAS_ORDER Order, const int M, const int N, double *A, const int lda, int *ipiv)
|
||||
{
|
||||
return clapack_dgetrf(Order, M, N, A, lda, ipiv);
|
||||
}
|
||||
|
||||
int wrapper_clapack_cgetrf(const enum CBLAS_ORDER Order, const int M, const int N, void *A, const int lda, int *ipiv)
|
||||
{
|
||||
return clapack_cgetrf(Order, M, N, A, lda, ipiv);
|
||||
}
|
||||
|
||||
int wrapper_clapack_zgetrf(const enum CBLAS_ORDER Order, const int M, const int N, void *A, const int lda, int *ipiv)
|
||||
{
|
||||
return clapack_zgetrf(Order, M, N, A, lda, ipiv);
|
||||
}
|
||||
|
||||
|
||||
|
||||
int wrapper_clapack_sgetri(const enum CBLAS_ORDER Order, const int N, float *A, const int lda, const int *ipiv)
|
||||
{
|
||||
return clapack_sgetri(Order, N, A, lda, ipiv);
|
||||
}
|
||||
|
||||
int wrapper_clapack_dgetri(const enum CBLAS_ORDER Order, const int N, double *A, const int lda, const int *ipiv)
|
||||
{
|
||||
return clapack_dgetri(Order, N, A, lda, ipiv);
|
||||
}
|
||||
|
||||
int wrapper_clapack_cgetri(const enum CBLAS_ORDER Order, const int N, void *A, const int lda, const int *ipiv)
|
||||
{
|
||||
return clapack_cgetri(Order, N, A, lda, ipiv);
|
||||
}
|
||||
|
||||
int wrapper_clapack_zgetri(const enum CBLAS_ORDER Order, const int N, void *A, const int lda, const int *ipiv)
|
||||
{
|
||||
return clapack_zgetri(Order, N, A, lda, ipiv);
|
||||
}
|
||||
|
||||
|
||||
|
||||
int wrapper_clapack_sgesv(const enum CBLAS_ORDER Order, const int N, const int NRHS, float *A, const int lda, int *ipiv, float *B, const int ldb)
|
||||
{
|
||||
return clapack_sgesv(Order, N, NRHS, A, lda, ipiv, B, ldb);
|
||||
}
|
||||
|
||||
int wrapper_clapack_dgesv(const enum CBLAS_ORDER Order, const int N, const int NRHS, double *A, const int lda, int *ipiv, double *B, const int ldb)
|
||||
{
|
||||
return clapack_dgesv(Order, N, NRHS, A, lda, ipiv, B, ldb);
|
||||
}
|
||||
|
||||
int wrapper_clapack_cgesv(const enum CBLAS_ORDER Order, const int N, const int NRHS, void *A, const int lda, int *ipiv, void *B, const int ldb)
|
||||
{
|
||||
return clapack_cgesv(Order, N, NRHS, A, lda, ipiv, B, ldb);
|
||||
}
|
||||
|
||||
int wrapper_clapack_zgesv(const enum CBLAS_ORDER Order, const int N, const int NRHS, void *A, const int lda, int *ipiv, void *B, const int ldb)
|
||||
{
|
||||
return clapack_zgesv(Order, N, NRHS, A, lda, ipiv, B, ldb);
|
||||
}
|
||||
|
||||
|
||||
|
||||
int wrapper_clapack_spotrf(const enum CBLAS_ORDER Order, const enum CBLAS_UPLO Uplo, const int N, float *A, const int lda)
|
||||
{
|
||||
return clapack_spotrf(Order, Uplo, N, A, lda);
|
||||
}
|
||||
|
||||
int wrapper_clapack_dpotrf(const enum CBLAS_ORDER Order, const enum CBLAS_UPLO Uplo, const int N, double *A, const int lda)
|
||||
{
|
||||
return clapack_dpotrf(Order, Uplo, N, A, lda);
|
||||
}
|
||||
|
||||
int wrapper_clapack_cpotrf(const enum CBLAS_ORDER Order, const enum CBLAS_UPLO Uplo, const int N, void *A, const int lda)
|
||||
{
|
||||
return clapack_cpotrf(Order, Uplo, N, A, lda);
|
||||
}
|
||||
|
||||
int wrapper_clapack_zpotrf(const enum CBLAS_ORDER Order, const enum CBLAS_UPLO Uplo, const int N, void *A, const int lda)
|
||||
{
|
||||
return clapack_zpotrf(Order, Uplo, N, A, lda);
|
||||
}
|
||||
|
||||
|
||||
|
||||
int wrapper_clapack_spotri(const enum CBLAS_ORDER Order, const enum CBLAS_UPLO Uplo, const int N, float *A, const int lda)
|
||||
{
|
||||
return clapack_spotri(Order, Uplo, N, A, lda);
|
||||
}
|
||||
|
||||
int wrapper_clapack_dpotri(const enum CBLAS_ORDER Order, const enum CBLAS_UPLO Uplo, const int N, double *A, const int lda)
|
||||
{
|
||||
return clapack_dpotri(Order, Uplo, N, A, lda);
|
||||
}
|
||||
|
||||
int wrapper_clapack_cpotri(const enum CBLAS_ORDER Order, const enum CBLAS_UPLO Uplo, const int N, void *A, const int lda)
|
||||
{
|
||||
return clapack_cpotri(Order, Uplo, N, A, lda);
|
||||
}
|
||||
|
||||
int wrapper_clapack_zpotri(const enum CBLAS_ORDER Order, const enum CBLAS_UPLO Uplo, const int N, void *A, const int lda)
|
||||
{
|
||||
return clapack_zpotri(Order, Uplo, N, A, lda);
|
||||
}
|
||||
|
||||
|
||||
|
||||
int wrapper_clapack_sposv(const enum CBLAS_ORDER Order, const enum CBLAS_UPLO Uplo, const int N, const int NRHS, float *A, const int lda, float *B, const int ldb)
|
||||
{
|
||||
return clapack_sposv(Order, Uplo, N, NRHS, A, lda, B, ldb);
|
||||
}
|
||||
|
||||
int wrapper_clapack_dposv(const enum CBLAS_ORDER Order, const enum CBLAS_UPLO Uplo, const int N, const int NRHS, double *A, const int lda, double *B, const int ldb)
|
||||
{
|
||||
return clapack_dposv(Order, Uplo, N, NRHS, A, lda, B, ldb);
|
||||
}
|
||||
|
||||
int wrapper_clapack_cposv(const enum CBLAS_ORDER Order, const enum CBLAS_UPLO Uplo, const int N, const int NRHS, void *A, const int lda, void *B, const int ldb)
|
||||
{
|
||||
return clapack_cposv(Order, Uplo, N, NRHS, A, lda, B, ldb);
|
||||
}
|
||||
|
||||
int wrapper_clapack_zposv(const enum CBLAS_ORDER Order, const enum CBLAS_UPLO Uplo, const int N, const int NRHS, void *A, const int lda, void *B, const int ldb)
|
||||
{
|
||||
return clapack_zposv(Order, Uplo, N, NRHS, A, lda, B, ldb);
|
||||
}
|
||||
|
||||
|
||||
#endif
|
||||
|
||||
|
||||
|
||||
|
||||
Reference in New Issue
Block a user