Pick zdotu interface based on OPENBLAS_COMPLEX_STRUCT
This commit is contained in:
parent
eb52bdbea2
commit
832b145999
|
@ -268,11 +268,11 @@ CTEST( zdotu,zdotu_n_1)
|
||||||
double y1[]={1.0,2.0};
|
double y1[]={1.0,2.0};
|
||||||
openblas_complex_double result1=openblas_make_complex_double(0.0,0.0);
|
openblas_complex_double result1=openblas_make_complex_double(0.0,0.0);
|
||||||
openblas_complex_double result2=openblas_make_complex_double(-1.0,3.0);
|
openblas_complex_double result2=openblas_make_complex_double(-1.0,3.0);
|
||||||
//#ifdef __CTEST_MSVC
|
#ifdef OPENBLAS_COMPLEX_STRUCT
|
||||||
// BLASFUNC(zdotu)(&result1,&N,x1,&incX,y1,&incY);
|
BLASFUNC(zdotu)(&result1,&N,x1,&incX,y1,&incY);
|
||||||
//#else
|
#else
|
||||||
result1=BLASFUNC(zdotu)(&N,x1,&incX,y1,&incY);
|
result1=BLASFUNC(zdotu)(&N,x1,&incX,y1,&incY);
|
||||||
//#endif
|
#endif
|
||||||
|
|
||||||
#ifdef OPENBLAS_COMPLEX_STRUCT
|
#ifdef OPENBLAS_COMPLEX_STRUCT
|
||||||
ASSERT_DBL_NEAR_TOL(result1.real, result2.real, DOUBLE_EPS);
|
ASSERT_DBL_NEAR_TOL(result1.real, result2.real, DOUBLE_EPS);
|
||||||
|
@ -290,7 +290,7 @@ CTEST(zdotu, zdotu_offset_1)
|
||||||
double y1[]={5.0,6.0,7.0,8.0};
|
double y1[]={5.0,6.0,7.0,8.0};
|
||||||
openblas_complex_double result1=openblas_make_complex_double(0.0,0.0);
|
openblas_complex_double result1=openblas_make_complex_double(0.0,0.0);
|
||||||
openblas_complex_double result2=openblas_make_complex_double(-9.0,32.0);
|
openblas_complex_double result2=openblas_make_complex_double(-9.0,32.0);
|
||||||
#ifdef __CTEST_MSVC
|
#ifdef OPENBLAS_COMPLEX_STRUCT
|
||||||
BLASFUNC(zdotu)(&result1,&N,x1+1,&incX,y1+1,&incY);
|
BLASFUNC(zdotu)(&result1,&N,x1+1,&incX,y1+1,&incY);
|
||||||
#else
|
#else
|
||||||
result1=BLASFUNC(zdotu)(&N,x1+1,&incX,y1+1,&incY);
|
result1=BLASFUNC(zdotu)(&N,x1+1,&incX,y1+1,&incY);
|
||||||
|
|
Loading…
Reference in New Issue