$search
00001 // Copyright (C) 2008-2011 NICTA (www.nicta.com.au) 00002 // Copyright (C) 2008-2011 Conrad Sanderson 00003 // 00004 // This file is part of the Armadillo C++ library. 00005 // It is provided without any warranty of fitness 00006 // for any purpose. You can redistribute this file 00007 // and/or modify it under the terms of the GNU 00008 // Lesser General Public License (LGPL) as published 00009 // by the Free Software Foundation, either version 3 00010 // of the License or (at your option) any later version. 00011 // (see http://www.opensource.org/licenses for more info) 00012 00013 00014 #ifdef ARMA_USE_ATLAS 00015 00016 00018 namespace atlas 00019 { 00020 00021 using ::CblasColMajor; 00022 using ::CblasNoTrans; 00023 using ::CblasTrans; 00024 using ::CblasConjTrans; 00025 00026 #if defined(ARMA_USE_WRAPPER) 00027 extern "C" 00028 { 00029 00030 float wrapper_cblas_sdot(const int N, const float *X, const int incX, const float *Y, const int incY); 00031 double wrapper_cblas_ddot(const int N, const double *X, const int incX, const double *Y, const int incY); 00032 00033 void wrapper_cblas_cdotu_sub(const int N, const void *X, const int incX, const void *Y, const int incY, void *dotu); 00034 void wrapper_cblas_zdotu_sub(const int N, const void *X, const int incX, const void *Y, const int incY, void *dotu); 00035 00036 00037 void wrapper_cblas_sgemv(const enum CBLAS_ORDER Order, const enum CBLAS_TRANSPOSE TransA, const int M, const int N, const float alpha, 00038 const float *A, const int lda, const float *X, const int incX, const float beta, float *Y, const int incY); 00039 00040 void wrapper_cblas_dgemv(const enum CBLAS_ORDER Order, const enum CBLAS_TRANSPOSE TransA, const int M, const int N, const double alpha, 00041 const double *A, const int lda, const double *X, const int incX, const double beta, double *Y, const int incY); 00042 00043 void wrapper_cblas_cgemv(const enum CBLAS_ORDER Order, const enum CBLAS_TRANSPOSE TransA, const int M, const int N, const void *alpha, 00044 const void *A, const int lda, const void *X, const int incX, const void *beta, void *Y, const int incY); 00045 00046 void wrapper_cblas_zgemv(const enum CBLAS_ORDER Order, const enum CBLAS_TRANSPOSE TransA, const int M, const int N, const void *alpha, 00047 const void *A, const int lda, const void *X, const int incX, const void *beta, void *Y, const int incY); 00048 00049 00050 00051 void wrapper_cblas_sgemm(const enum CBLAS_ORDER Order, const enum CBLAS_TRANSPOSE TransA, const enum CBLAS_TRANSPOSE TransB, 00052 const int M, const int N, const int K, const float alpha, 00053 const float *A, const int lda, const float *B, const int ldb, const float beta, float *C, const int ldc); 00054 00055 void wrapper_cblas_dgemm(const enum CBLAS_ORDER Order, const enum CBLAS_TRANSPOSE TransA, const enum CBLAS_TRANSPOSE TransB, 00056 const int M, const int N, const int K, const double alpha, 00057 const double *A, const int lda, const double *B, const int ldb, const double beta, double *C, const int ldc); 00058 00059 void wrapper_cblas_cgemm(const enum CBLAS_ORDER Order, const enum CBLAS_TRANSPOSE TransA, const enum CBLAS_TRANSPOSE TransB, 00060 const int M, const int N, const int K, const void *alpha, 00061 const void *A, const int lda, const void *B, const int ldb, const void *beta, void *C, const int ldc); 00062 00063 void wrapper_cblas_zgemm(const enum CBLAS_ORDER Order, const enum CBLAS_TRANSPOSE TransA, const enum CBLAS_TRANSPOSE TransB, 00064 const int M, const int N, const int K, const void *alpha, 00065 const void *A, const int lda, const void *B, const int ldb, const void *beta, void *C, const int ldc); 00066 00067 00068 int wrapper_clapack_sgetrf(const enum CBLAS_ORDER Order, const int M, const int N, float *A, const int lda, int *ipiv); 00069 int wrapper_clapack_dgetrf(const enum CBLAS_ORDER Order, const int M, const int N, double *A, const int lda, int *ipiv); 00070 int wrapper_clapack_cgetrf(const enum CBLAS_ORDER Order, const int M, const int N, void *A, const int lda, int *ipiv); 00071 int wrapper_clapack_zgetrf(const enum CBLAS_ORDER Order, const int M, const int N, void *A, const int lda, int *ipiv); 00072 00073 int wrapper_clapack_sgetri(const enum CBLAS_ORDER Order, const int N, float *A, const int lda, const int *ipiv); 00074 int wrapper_clapack_dgetri(const enum CBLAS_ORDER Order, const int N, double *A, const int lda, const int *ipiv); 00075 int wrapper_clapack_cgetri(const enum CBLAS_ORDER Order, const int N, void *A, const int lda, const int *ipiv); 00076 int wrapper_clapack_zgetri(const enum CBLAS_ORDER Order, const int N, void *A, const int lda, const int *ipiv); 00077 00078 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); 00079 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); 00080 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); 00081 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); 00082 00083 } 00084 #endif 00085 00086 } 00087 00088 00089 #endif