testing::AssertionResult
SimdTest::compareSimdRealEq(const char * refExpr, const char * tstExpr,
const SimdReal ref, const SimdReal tst)
{
return compareVectorEq(refExpr, tstExpr, simdReal2Vector(ref), simdReal2Vector(tst));
}
/*! \brief Implementation routine to compare SIMD vs reference functions.
*
* \param refFuncExpr Description of reference function expression
* \param simdFuncExpr Description of SIMD function expression
* \param refFunc Reference math function pointer
* \param simdFunc SIMD math function pointer
*
* The function will be tested with the range and tolerances specified in
* the SimdBaseTest class. You should not never call this function directly,
* but use the macro GMX_EXPECT_SIMD_FUNC_NEAR(refFunc,tstFunc) instead.
*/
::testing::AssertionResult
SimdMathTest::compareSimdMathFunction(const char * refFuncExpr, const char *simdFuncExpr,
real refFunc(real x), SimdReal gmx_simdcall simdFunc(SimdReal x))
{
std::vector<real> vx(GMX_SIMD_REAL_WIDTH);
std::vector<real> vref(GMX_SIMD_REAL_WIDTH);
std::vector<real> vtst(GMX_SIMD_REAL_WIDTH);
real dx, absDiff;
std::int64_t ulpDiff, maxUlpDiff;
real maxUlpDiffPos;
real refValMaxUlpDiff, simdValMaxUlpDiff;
bool absOk, signOk;
int i, iter;
int niter = s_nPoints/GMX_SIMD_REAL_WIDTH;
int npoints = niter*GMX_SIMD_REAL_WIDTH;
# if GMX_DOUBLE
union {
double r; std::int64_t i;
} conv0, conv1;
# else
union {
float r; std::int32_t i;
} conv0, conv1;
# endif
maxUlpDiff = 0;
dx = (range_.second-range_.first)/npoints;
for (iter = 0; iter < niter; iter++)
{
for (i = 0; i < GMX_SIMD_REAL_WIDTH; i++)
{
vx[i] = range_.first+dx*(iter*GMX_SIMD_REAL_WIDTH+i);
vref[i] = refFunc(vx[i]);
}
vtst = simdReal2Vector(simdFunc(vector2SimdReal(vx)));
for (i = 0, signOk = true, absOk = true; i < GMX_SIMD_REAL_WIDTH; i++)
{
absDiff = fabs(vref[i]-vtst[i]);
absOk = absOk && ( absDiff < absTol_ );
signOk = signOk && ( (vref[i] >= 0 && vtst[i] >= 0) ||
(vref[i] <= 0 && vtst[i] <= 0));
if (absDiff >= absTol_)
{
/* We replicate the trivial ulp differences comparison here rather than
* calling the lower-level routine for comparing them, since this enables
* us to run through the entire test range and report the largest deviation
* without lots of extra glue routines.
*/
conv0.r = vref[i];
conv1.r = vtst[i];
ulpDiff = llabs(conv0.i-conv1.i);
if (ulpDiff > maxUlpDiff)
{
maxUlpDiff = ulpDiff;
maxUlpDiffPos = vx[i];
refValMaxUlpDiff = vref[i];
simdValMaxUlpDiff = vtst[i];
}
}
}
if ( (absOk == false) && (signOk == false) )
{
return ::testing::AssertionFailure()
<< "Failing SIMD math function comparison due to sign differences." << std::endl
<< "Reference function: " << refFuncExpr << std::endl
<< "Simd function: " << simdFuncExpr << std::endl
<< "Test range is ( " << range_.first << " , " << range_.second << " ) " << std::endl
<< "First sign difference around x=" << std::setprecision(20) << ::testing::PrintToString(vx) << std::endl
<< "Ref values: " << std::setprecision(20) << ::testing::PrintToString(vref) << std::endl
<< "SIMD values: " << std::setprecision(20) << ::testing::PrintToString(vtst) << std::endl;
}
}
if (maxUlpDiff <= ulpTol_)
{
return ::testing::AssertionSuccess();
}
else
{
return ::testing::AssertionFailure()
<< "Failing SIMD math function ulp comparison between " << refFuncExpr << " and " << simdFuncExpr << std::endl
<< "Requested ulp tolerance: " << ulpTol_ << std::endl
<< "Requested abs tolerance: " << absTol_ << std::endl
<< "Largest Ulp difference occurs for x=" << std::setprecision(20) << maxUlpDiffPos << std::endl
<< "Ref values: " << std::setprecision(20) << refValMaxUlpDiff << std::endl
<< "SIMD values: " << std::setprecision(20) << simdValMaxUlpDiff << std::endl
<< "Ulp diff.: " << std::setprecision(20) << maxUlpDiff << std::endl;
}
}
testing::AssertionResult
SimdTest::compareSimdRealUlp(const char * refExpr, const char * tstExpr,
const gmx_simd_real_t ref, const gmx_simd_real_t tst)
{
return compareVectorRealUlp(refExpr, tstExpr, simdReal2Vector(ref), simdReal2Vector(tst));
}
