max@0: // Copyright (C) 2008-2011 NICTA (www.nicta.com.au)
max@0: // Copyright (C) 2008-2011 Conrad Sanderson
max@0: // 
max@0: // This file is part of the Armadillo C++ library.
max@0: // It is provided without any warranty of fitness
max@0: // for any purpose. You can redistribute this file
max@0: // and/or modify it under the terms of the GNU
max@0: // Lesser General Public License (LGPL) as published
max@0: // by the Free Software Foundation, either version 3
max@0: // of the License or (at your option) any later version.
max@0: // (see http://www.opensource.org/licenses for more info)
max@0: 
max@0: 
max@0: #ifdef ARMA_USE_ATLAS
max@0: 
max@0: 
max@0: //! \namespace atlas namespace for ATLAS functions (imported from the global namespace)
max@0: namespace atlas
max@0:   {
max@0:   
max@0:   using ::CblasColMajor;
max@0:   using ::CblasNoTrans;
max@0:   using ::CblasTrans;
max@0:   using ::CblasConjTrans;
max@0:   
max@0:   #if defined(ARMA_USE_WRAPPER)
max@0:   extern "C"
max@0:     {
max@0:     
max@0:     float  wrapper_cblas_sdot(const int N, const float  *X, const int incX, const float  *Y, const int incY);
max@0:     double wrapper_cblas_ddot(const int N, const double *X, const int incX, const double *Y, const int incY);
max@0:     
max@0:     void wrapper_cblas_cdotu_sub(const int N, const void *X, const int incX, const void *Y, const int incY, void *dotu);
max@0:     void wrapper_cblas_zdotu_sub(const int N, const void *X, const int incX, const void *Y, const int incY, void *dotu);
max@0:     
max@0:     
max@0:     void wrapper_cblas_sgemv(const enum CBLAS_ORDER Order, const enum CBLAS_TRANSPOSE TransA, const int M, const int N, const float alpha,
max@0:                              const float *A, const int lda, const float *X, const int incX, const float beta, float *Y, const int incY);
max@0:     
max@0:     void wrapper_cblas_dgemv(const enum CBLAS_ORDER Order, const enum CBLAS_TRANSPOSE TransA, const int M, const int N, const double alpha,
max@0:                              const double *A, const int lda, const double *X, const int incX, const double beta, double *Y, const int incY);
max@0:     
max@0:     void wrapper_cblas_cgemv(const enum CBLAS_ORDER Order, const enum CBLAS_TRANSPOSE TransA, const int M, const int N, const void *alpha,
max@0:                              const void *A, const int lda, const void *X, const int incX, const void *beta, void *Y, const int incY);
max@0:     
max@0:     void wrapper_cblas_zgemv(const enum CBLAS_ORDER Order, const enum CBLAS_TRANSPOSE TransA, const int M, const int N, const void *alpha,
max@0:                              const void *A, const int lda, const void *X, const int incX, const void *beta, void *Y, const int incY);
max@0:     
max@0:     
max@0:     
max@0:     void wrapper_cblas_sgemm(const enum CBLAS_ORDER Order, const enum CBLAS_TRANSPOSE TransA, const enum CBLAS_TRANSPOSE TransB,
max@0:                              const int M, const int N, const int K, const float alpha,
max@0:                              const float *A, const int lda, const float *B, const int ldb, const float beta, float *C, const int ldc);
max@0:     
max@0:     void wrapper_cblas_dgemm(const enum CBLAS_ORDER Order, const enum CBLAS_TRANSPOSE TransA, const enum CBLAS_TRANSPOSE TransB,
max@0:                              const int M, const int N, const int K, const double alpha,
max@0:                              const double *A, const int lda, const double *B, const int ldb, const double beta, double *C, const int ldc);
max@0:     
max@0:     void wrapper_cblas_cgemm(const enum CBLAS_ORDER Order, const enum CBLAS_TRANSPOSE TransA, const enum CBLAS_TRANSPOSE TransB,
max@0:                              const int M, const int N, const int K, const void *alpha,
max@0:                              const void *A, const int lda, const void *B, const int ldb, const void *beta, void *C, const int ldc);
max@0:     
max@0:     void wrapper_cblas_zgemm(const enum CBLAS_ORDER Order, const enum CBLAS_TRANSPOSE TransA, const enum CBLAS_TRANSPOSE TransB,
max@0:                              const int M, const int N, const int K, const void *alpha,
max@0:                              const void *A, const int lda, const void *B, const int ldb, const void *beta, void *C, const int ldc);
max@0:     
max@0:     
max@0:     int wrapper_clapack_sgetrf(const enum CBLAS_ORDER Order, const int M, const int N, float  *A, const int lda, int *ipiv);
max@0:     int wrapper_clapack_dgetrf(const enum CBLAS_ORDER Order, const int M, const int N, double *A, const int lda, int *ipiv);
max@0:     int wrapper_clapack_cgetrf(const enum CBLAS_ORDER Order, const int M, const int N, void   *A, const int lda, int *ipiv);
max@0:     int wrapper_clapack_zgetrf(const enum CBLAS_ORDER Order, const int M, const int N, void   *A, const int lda, int *ipiv);
max@0:     
max@0:     int wrapper_clapack_sgetri(const enum CBLAS_ORDER Order, const int N, float  *A, const int lda, const int *ipiv);
max@0:     int wrapper_clapack_dgetri(const enum CBLAS_ORDER Order, const int N, double *A, const int lda, const int *ipiv);
max@0:     int wrapper_clapack_cgetri(const enum CBLAS_ORDER Order, const int N, void   *A, const int lda, const int *ipiv);
max@0:     int wrapper_clapack_zgetri(const enum CBLAS_ORDER Order, const int N, void   *A, const int lda, const int *ipiv);
max@0: 
max@0:     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);
max@0:     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);
max@0:     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);
max@0:     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);
max@0:     
max@0:     }
max@0:   #endif
max@0:   
max@0:   }
max@0: 
max@0: 
max@0: #endif