Method etalonPerfSingle

src/tests/performance/perf-her2.cpp:209–255

}

template <typename ElemType> nano_time_t
Her2PerformanceTest<ElemType>::etalonPerfSingle(void)
{
	clblasOrder order;
    clblasUplo fUplo;
    nano_time_t time = 0;
    size_t lda;

#ifndef PERF_TEST_WITH_ROW_MAJOR
    if (params_.order == clblasRowMajor) {
        cerr << "Row major order is not allowed" << endl;
        return NANOTIME_ERR;
    }
#endif

    order = params_.order;
    lda = params_.lda;
    fUplo = params_.uplo;

#ifdef PERF_TEST_WITH_ACML

    ElemType *fX, *fY;
    int fIncx, fIncy;
    size_t fOffx, fOffy;
	fX = X_;    fOffx = params_.offBX;  fIncx = params_.incx;
	fY = Y_;    fOffy = params_.offCY;  fIncy = params_.incy;


	if (order != clblasColumnMajor)
    {
		doConjugate( (X_ + params_.offBX), (1 + (params_.N-1) * abs(params_.incx)), 1, 1 );
        doConjugate( (Y_ + params_.offCY), (1 + (params_.N-1) * abs(params_.incy)), 1, 1 );
        order = clblasColumnMajor;
        fUplo = (fUplo == clblasLower)? clblasUpper : clblasLower;
	    fX = Y_;    fOffx = params_.offCY;  fIncx = params_.incy;
	    fY = X_;    fOffy = params_.offBX;  fIncy = params_.incx;
    }

   	time = getCurrentTime();
   	clMath::blas::her2(order, fUplo, params_.N, alpha_, fX, fOffx, fIncx, fY,
					fOffy, fIncy, A_, params_.offa, lda);
	time = getCurrentTime() - time;

#endif  // PERF_TEST_WITH_ACML

    return time;
}


template <typename ElemType> nano_time_t