Method clblasPerfSingle

src/tests/performance/perf-ger.cpp:284–355

template <typename ElemType> nano_time_t
GerPerformanceTest<ElemType>::clblasPerfSingle(void)
{
    nano_time_t time;
    cl_event event;
    cl_int status;
    cl_command_queue queue = base_->commandQueues()[0];

    status = clEnqueueWriteBuffer(queue, mobjA_, CL_TRUE, 0,
                                  (lengthA + params_.offa) * sizeof(ElemType), backA_, 0, NULL, &event);
    if (status != CL_SUCCESS) {
        cerr << "Matrix A buffer object enqueuing error, status = " <<
                 status << endl;

        return NANOTIME_ERR;
    }

    status = clWaitForEvents(1, &event);
    if (status != CL_SUCCESS) {
        cout << "Wait on event failed, status = " <<
                status << endl;

        return NANOTIME_ERR;
    }

    event = NULL;
     time = getCurrentTime();

#define TIMING
#ifdef TIMING
        clFinish( queue);

        int iter = 20;
        for ( int i = 1; i <= iter; i++)
        {
#endif

    status = (cl_int)clMath::clblas::ger(params_.order, params_.M, params_.N, alpha_,
         mobjx_, params_.offBX, params_.incx, mobjy_, params_.offCY, params_.incy, mobjA_, params_.offa, params_.lda, 1,
        &queue, 0, NULL, &event);
    if (status != CL_SUCCESS) {
        cerr << "The CLBLAS GER function failed, status = " <<
                status << endl;

        return NANOTIME_ERR;
    }
#ifdef TIMING
        } // iter loop
        clFinish( queue);
    time = getCurrentTime() - time;
        time /= iter;
#else

    status = flushAll(1, &queue);
    if (status != CL_SUCCESS) {
        cerr << "clFlush() failed, status = " << status << endl;
        return NANOTIME_ERR;
    }