|
@@ -164,7 +164,7 @@ static double c_api_check_zdrot(blasint n, blasint inc_x, blasint inc_y, double |
|
|
norm += cblas_dznrm2(n, data_zrot.y_test, inc_y_abs); |
|
|
norm += cblas_dznrm2(n, data_zrot.y_test, inc_y_abs); |
|
|
return (norm / 2); |
|
|
return (norm / 2); |
|
|
} |
|
|
} |
|
|
|
|
|
|
|
|
|
|
|
#if 0 |
|
|
/** |
|
|
/** |
|
|
* Fortran API specific test |
|
|
* Fortran API specific test |
|
|
* Test zrot by comparing it with zaxpby. |
|
|
* Test zrot by comparing it with zaxpby. |
|
@@ -190,7 +190,7 @@ CTEST(zrot, inc_x_0_inc_y_0) |
|
|
double norm = check_zdrot(n, inc_x, inc_y, c, s); |
|
|
double norm = check_zdrot(n, inc_x, inc_y, c, s); |
|
|
ASSERT_DBL_NEAR_TOL(0.0, norm, DOUBLE_EPS); |
|
|
ASSERT_DBL_NEAR_TOL(0.0, norm, DOUBLE_EPS); |
|
|
} |
|
|
} |
|
|
|
|
|
|
|
|
|
|
|
#endif |
|
|
/** |
|
|
/** |
|
|
* Fortran API specific test |
|
|
* Fortran API specific test |
|
|
* Test zrot by comparing it with zaxpby. |
|
|
* Test zrot by comparing it with zaxpby. |
|
@@ -476,7 +476,7 @@ CTEST(zrot, check_n_zero) |
|
|
double norm = check_zdrot(n, inc_x, inc_y, c, s); |
|
|
double norm = check_zdrot(n, inc_x, inc_y, c, s); |
|
|
ASSERT_DBL_NEAR_TOL(0.0, norm, DOUBLE_EPS); |
|
|
ASSERT_DBL_NEAR_TOL(0.0, norm, DOUBLE_EPS); |
|
|
} |
|
|
} |
|
|
|
|
|
|
|
|
|
|
|
#if 0 |
|
|
/** |
|
|
/** |
|
|
* C API specific test |
|
|
* C API specific test |
|
|
* Test zrot by comparing it with zaxpby. |
|
|
* Test zrot by comparing it with zaxpby. |
|
@@ -502,7 +502,7 @@ CTEST(zrot, c_api_inc_x_0_inc_y_0) |
|
|
double norm = c_api_check_zdrot(n, inc_x, inc_y, c, s); |
|
|
double norm = c_api_check_zdrot(n, inc_x, inc_y, c, s); |
|
|
ASSERT_DBL_NEAR_TOL(0.0, norm, DOUBLE_EPS); |
|
|
ASSERT_DBL_NEAR_TOL(0.0, norm, DOUBLE_EPS); |
|
|
} |
|
|
} |
|
|
|
|
|
|
|
|
|
|
|
#endif |
|
|
/** |
|
|
/** |
|
|
* C API specific test |
|
|
* C API specific test |
|
|
* Test zrot by comparing it with zaxpby. |
|
|
* Test zrot by comparing it with zaxpby. |
|
|