18 #if !defined(ARMA_BLAS_CAPITALS) 20 #define arma_sdot sdot 21 #define arma_ddot ddot 23 #define arma_sgemv sgemv 24 #define arma_dgemv dgemv 25 #define arma_cgemv cgemv 26 #define arma_zgemv zgemv 28 #define arma_sgemm sgemm 29 #define arma_dgemm dgemm 30 #define arma_cgemm cgemm 31 #define arma_zgemm zgemm 35 #define arma_sdot SDOT 36 #define arma_ddot DDOT 38 #define arma_sgemv SGEMV 39 #define arma_dgemv DGEMV 40 #define arma_cgemv CGEMV 41 #define arma_zgemv ZGEMV 43 #define arma_sgemm SGEMM 44 #define arma_dgemm DGEMM 45 #define arma_cgemm CGEMM 46 #define arma_zgemm ZGEMM 57 void arma_fortran(arma_sgemv)(
const char* transA,
const blas_int* m,
const blas_int* n,
const float* alpha,
const float* A,
const blas_int* ldA,
const float* x,
const blas_int* incx,
const float* beta,
float* y,
const blas_int* incy);
58 void arma_fortran(arma_dgemv)(
const char* transA,
const blas_int* m,
const blas_int* n,
const double* alpha,
const double* A,
const blas_int* ldA,
const double* x,
const blas_int* incx,
const double* beta,
double* y,
const blas_int* incy);
59 void arma_fortran(arma_cgemv)(
const char* transA,
const blas_int* m,
const blas_int* n,
const void* alpha,
const void* A,
const blas_int* ldA,
const void* x,
const blas_int* incx,
const void* beta,
void* y,
const blas_int* incy);
60 void arma_fortran(arma_zgemv)(
const char* transA,
const blas_int* m,
const blas_int* n,
const void* alpha,
const void* A,
const blas_int* ldA,
const void* x,
const blas_int* incx,
const void* beta,
void* y,
const blas_int* incy);
62 void arma_fortran(arma_sgemm)(
const char* transA,
const char* transB,
const blas_int* m,
const blas_int* n,
const blas_int* k,
const float* alpha,
const float* A,
const blas_int* ldA,
const float* B,
const blas_int* ldB,
const float* beta,
float* C,
const blas_int* ldC);
63 void arma_fortran(arma_dgemm)(
const char* transA,
const char* transB,
const blas_int* m,
const blas_int* n,
const blas_int* k,
const double* alpha,
const double* A,
const blas_int* ldA,
const double* B,
const blas_int* ldB,
const double* beta,
double* C,
const blas_int* ldC);
64 void arma_fortran(arma_cgemm)(
const char* transA,
const char* transB,
const blas_int* m,
const blas_int* n,
const blas_int* k,
const void* alpha,
const void* A,
const blas_int* ldA,
const void* B,
const blas_int* ldB,
const void* beta,
void* C,
const blas_int* ldC);
65 void arma_fortran(arma_zgemm)(
const char* transA,
const char* transB,
const blas_int* m,
const blas_int* n,
const blas_int* k,
const void* alpha,
const void* A,
const blas_int* ldA,
const void* B,
const blas_int* ldB,
const void* beta,
void* C,
const blas_int* ldC);
#define arma_fortran(function)