AnotherFoxGuy/autocmake
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

simplify accelerate test

Browse Source
This commit is contained in:
Radovan Bast 2015-09-18 10:53:48 +02:00
parent c5057f8aee
commit 6c43499681
1 changed files with 3 additions and 48 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

51
test/cxx_accelerate/src/example.cpp
View File

@ -3,49 +3,7 @@
#include "Accelerate/Accelerate.h" #include "Accelerate/Accelerate.h"
bool test_lapack() int main()
{
const int n = 3;
double a[n*n];
double b[n];
a[0] = 2.00;
a[1] = 1.00;
a[2] = 3.00;
a[3] = 2.00;
a[4] = 6.00;
a[5] = 8.00;
a[6] = 6.00;
a[7] = 8.00;
a[8] = 18.00;
b[0] = 1.00;
b[1] = 3.00;
b[2] = 5.00;
int ierr;
int ipiv[n];
ierr = LAPACKE_dgesv(CblasColMajor, n, 1, a, n, ipiv, b, n);
if (ierr != 0)
{
fprintf(stderr, "\ndgesv failure with error %i\n", ierr);
}
const double small = 1.0e-12;
if (abs(b[0] + 0.50) <= small &&
abs(b[1] - 0.25) <= small &&
abs(b[2] - 0.25) <= small)
{
return true;
}
return false;
}
bool test_blas()
{ {
const int n = 10; const int n = 10;
@ -68,10 +26,7 @@ bool test_blas()
if (abs(c[i]) - 20.00 > 0.0) passed = false; if (abs(c[i]) - 20.00 > 0.0) passed = false;
} }
return passed; if (passed) printf("PASSED");
}
int main() return 0;
{
if (test_lapack() and test_blas()) printf("PASSED");
} }