autocmake/test/cxx_cblas/src/example.cpp
Radovan Bast 6017dbbfa6 renames
2015-09-17 10:26:08 +02:00

37 lines
599 B
C++

#include <stdio.h>
#include <stdlib.h>
#ifdef __APPLE__
#include "Accelerate/Accelerate.h"
#else
#include "cblas.h"
#endif
int main()
{
const int n = 10;
double a[n*n];
double b[n*n];
double c[n*n];
for (int i = 0; i < n*n; i++)
{
a[i] = 1.0;
b[i] = 2.0;
c[i] = 0.0;
}
cblas_dgemm(CblasColMajor, CblasNoTrans, CblasNoTrans, n, n, n, 1.0, a, n, b, n, 0.0, c, n);
bool passed = true;
for (int i = 0; i < n*n; i++)
{
if (abs(c[i]) - 20.00 > 0.0) passed = false;
}
if (passed) printf("PASSED");
return 0;
}