Method etalonPerfSingle

src/tests/performance/perf-tbsv.cpp:202–239

}

template <typename ElemType> nano_time_t
TbsvPerformanceTest<ElemType>::etalonPerfSingle(void)
{
    nano_time_t time = 0;
    clblasOrder fOrder;
    clblasTranspose fTrans;
    clblasUplo fUplo;
    size_t lda, lenA, lenX;

    lenA = params_.N * params_.lda;
    lenX = (params_.N - 1)* params_.incx + 1 + params_.offBX;

    memcpy(X_, backX_, lenX * sizeof(ElemType));
    fOrder = params_.order;
    fTrans = params_.transA;
    fUplo = params_.uplo;
    lda = params_.lda;

    if (fOrder != clblasColumnMajor)
    {
        fOrder = clblasColumnMajor;
        fTrans = (params_.transA == clblasNoTrans)? clblasTrans : clblasNoTrans;
        fUplo = (params_.uplo == clblasLower)? clblasUpper : clblasLower;

		if( params_.transA == clblasConjTrans )
            doConjugate( (A_+params_.offA), 1, lenA, lda );
   	}

#ifdef PERF_TEST_WITH_ACML

   	time = getCurrentTime();
   	clMath::blas::tbsv(fOrder, fUplo, fTrans, params_.diag, params_.N, params_.K, A_, params_.offA, lda, X_, params_.offBX, params_.incx);
  	time = getCurrentTime() - time;

#endif  // PERF_TEST_WITH_ACML

    return time;
}


template <typename ElemType> nano_time_t