2016-05-17 03:04:11 +12:00
|
|
|
#pragma once
|
2016-03-19 06:57:51 +13:00
|
|
|
|
|
|
|
#ifndef TLIN_CBLAS_WRAP
|
|
|
|
#define TLIN_CBLAS_WRAP
|
|
|
|
|
|
|
|
#include "tcommon.h"
|
|
|
|
|
|
|
|
#undef DVAPI
|
|
|
|
#undef DVVAR
|
|
|
|
#ifdef TNZEXT_EXPORTS
|
|
|
|
#define DVAPI DV_EXPORT_API
|
|
|
|
#define DVVAR DV_EXPORT_VAR
|
|
|
|
#else
|
|
|
|
#define DVAPI DV_IMPORT_API
|
|
|
|
#define DVVAR DV_IMPORT_VAR
|
|
|
|
#endif
|
|
|
|
|
|
|
|
#include "tlin_matrix.h"
|
|
|
|
|
|
|
|
/*
|
|
|
|
EXPLANATION:
|
|
|
|
|
2016-06-15 18:43:10 +12:00
|
|
|
The tlin_cblas_wrap files implement a simplified wrapper interface to CBLAS
|
|
|
|
routines.
|
2016-03-19 06:57:51 +13:00
|
|
|
*/
|
|
|
|
|
|
|
|
//================================================================================
|
|
|
|
|
2016-06-15 18:43:10 +12:00
|
|
|
namespace tlin {
|
2016-03-19 06:57:51 +13:00
|
|
|
|
|
|
|
//***************************************************************************
|
|
|
|
// CBLAS-related routines
|
|
|
|
//***************************************************************************
|
|
|
|
|
|
|
|
void DVAPI sum(int n, const double *x, double *&y);
|
|
|
|
|
2016-06-15 18:43:10 +12:00
|
|
|
void DVAPI multiply(int rows, int cols, const double *A, const double *x,
|
|
|
|
double *&y);
|
2016-03-19 06:57:51 +13:00
|
|
|
void DVAPI multiply(const mat &A, const double *x, double *&y);
|
|
|
|
|
2016-06-15 18:43:10 +12:00
|
|
|
} // namespace tlin
|
2016-03-19 06:57:51 +13:00
|
|
|
|
2016-06-15 18:43:10 +12:00
|
|
|
#endif // TLIN_CBLAS_WRAP
|