summaryrefslogtreecommitdiff
path: root/external/clBLAS/src/tests/performance/perf-asum.cpp
diff options
context:
space:
mode:
Diffstat (limited to 'external/clBLAS/src/tests/performance/perf-asum.cpp')
-rw-r--r--external/clBLAS/src/tests/performance/perf-asum.cpp300
1 files changed, 0 insertions, 300 deletions
diff --git a/external/clBLAS/src/tests/performance/perf-asum.cpp b/external/clBLAS/src/tests/performance/perf-asum.cpp
deleted file mode 100644
index 225e163b..00000000
--- a/external/clBLAS/src/tests/performance/perf-asum.cpp
+++ /dev/null
@@ -1,300 +0,0 @@
-/* ************************************************************************
- * Copyright 2013 Advanced Micro Devices, Inc.
- *
- * Licensed under the Apache License, Version 2.0 (the "License");
- * you may not use this file except in compliance with the License.
- * You may obtain a copy of the License at
- *
- * http://www.apache.org/licenses/LICENSE-2.0
- *
- * Unless required by applicable law or agreed to in writing, software
- * distributed under the License is distributed on an "AS IS" BASIS,
- * WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
- * See the License for the specific language governing permissions and
- * limitations under the License.
- * ************************************************************************/
-
-#include <stdlib.h> // srand()
-#include <string.h> // memcpy()
-#include <gtest/gtest.h>
-#include <clBLAS.h>
-
-#include <common.h>
-#include <clBLAS-wrapper.h>
-#include <BlasBase.h>
-#include <asum.h>
-#include <blas-random.h>
-
-#ifdef PERF_TEST_WITH_ACML
-#include <blas-internal.h>
-#include <blas-wrapper.h>
-#endif
-
-#include "PerformanceTest.h"
-
-using namespace std;
-using namespace clMath;
-
-#define CHECK_RESULT(ret) \
-do { \
- ASSERT_GE(ret, 0) << "Fatal error: can not allocate resources or " \
- "perform an OpenCL request!" << endl; \
- EXPECT_EQ(0, ret) << "The OpenCL version is slower in the case" << \
- endl; \
-} while (0)
-
-namespace clMath {
-
-template <typename ElemType> class AsumPerformanceTest : public PerformanceTest
-{
-public:
- virtual ~AsumPerformanceTest();
-
- virtual int prepare(void);
- virtual nano_time_t etalonPerfSingle(void);
- virtual nano_time_t clblasPerfSingle(void);
-
- static void runInstance(BlasFunction fn, TestParams *params)
- {
- AsumPerformanceTest<ElemType> perfCase(fn, params);
- int ret = 0;
- int opFactor;
- BlasBase *base;
-
- base = clMath::BlasBase::getInstance();
-
- opFactor =1;
-
- if (((fn == FN_DASUM) || (fn == FN_DZASUM)) &&
- !base->isDevSupportDoublePrecision()) {
-
- std::cerr << ">> WARNING: The target device doesn't support native "
- "double precision floating point arithmetic" <<
- std::endl << ">> Test skipped" << std::endl;
- return;
- }
-
- if (!perfCase.areResourcesSufficient(params)) {
- std::cerr << ">> RESOURCE CHECK: Skip due to insufficient resources" <<
- std::endl;
- return;
- }
- else {
- ret = perfCase.run(opFactor);
- }
-
- ASSERT_GE(ret, 0) << "Fatal error: can not allocate resources or "
- "perform an OpenCL request!" << endl;
- EXPECT_EQ(0, ret) << "The OpenCL version is slower in the case" << endl;
- }
-
-private:
- AsumPerformanceTest(BlasFunction fn, TestParams *params);
-
- bool areResourcesSufficient(TestParams *params);
-
- TestParams params_;
- ElemType *blasX_;
- cl_mem mobjX_;
- cl_mem mobjAsum_;
- cl_mem scratchBuff;
- size_t lengthX;
- ::clMath::BlasBase *base_;
-};
-
-template <typename ElemType>
-AsumPerformanceTest<ElemType>::AsumPerformanceTest(
- BlasFunction fn,
- TestParams *params) : PerformanceTest(fn,(problem_size_t) ( (1 * params->N) * sizeof(ElemType) ) ), params_(*params), mobjX_(NULL), mobjAsum_(NULL)
-{
-
- blasX_ = NULL;
- mobjX_ = mobjAsum_= scratchBuff = NULL;
- lengthX = 1 + (params->N - 1) * abs(params_.incx);
-
- try
- {
- blasX_ = new ElemType[lengthX + params_.offBX];
- }
- catch(bad_alloc& ba) {
- blasX_ = NULL; // areResourcesSufficient() will handle the rest and return
- mobjX_ = mobjAsum_= scratchBuff = NULL;
- ba = ba;
- }
-
- base_ = ::clMath::BlasBase::getInstance();
-}
-
-template <typename ElemType>
-AsumPerformanceTest<ElemType>::~AsumPerformanceTest()
-{
- if(blasX_ != NULL)
- {
- delete[] blasX_;
- }
- if( mobjX_ != NULL )
- {
- clReleaseMemObject(mobjX_);
- }
- if( mobjAsum_ != NULL )
- {
- clReleaseMemObject(mobjAsum_);
- }
- if( scratchBuff!= NULL )
- {
- clReleaseMemObject(scratchBuff);
- }
-
-}
-
-/*
- * Check if available OpenCL resources are sufficient to
- * run the test case
- */
-template <typename ElemType> bool
-AsumPerformanceTest<ElemType>::areResourcesSufficient(TestParams *params)
-{
- clMath::BlasBase *base;
- size_t gmemSize, allocSize;
- bool ret;
- size_t sizeX, sizeAsum;
-
- if((blasX_ == NULL) ) {
- return 0;
- }
-
- base = clMath::BlasBase::getInstance();
- gmemSize = (size_t)base->availGlobalMemSize( 0 );
- allocSize = (size_t)base->maxMemAllocSize();
- sizeX = (lengthX + params->offBX) * sizeof(ElemType);
- sizeAsum = (1 + params->offa) * sizeof(ElemType);
-
- ret = ((sizeX < allocSize) && (sizeAsum < allocSize));
- ret = (ret && ((sizeX + sizeAsum) < gmemSize));
-
- return ret;
-}
-
-template <typename ElemType> int
-AsumPerformanceTest<ElemType>::prepare(void)
-{
-
- randomVectors(params_.N, (blasX_ + params_.offBX), params_.incx, (ElemType*)NULL, 0, true);
-
- mobjX_ = base_->createEnqueueBuffer(blasX_, ((lengthX + params_.offBX) * sizeof(ElemType)), 0, CL_MEM_READ_WRITE);
- mobjAsum_ = base_->createEnqueueBuffer(NULL, ((1 + params_.offa) * sizeof(ElemType)), 0, CL_MEM_READ_WRITE);
- scratchBuff = base_->createEnqueueBuffer(NULL, ((lengthX) * sizeof(ElemType)), 0, CL_MEM_READ_WRITE);
-
- return ((mobjX_ != NULL) && (mobjAsum_ != NULL)&& (scratchBuff != NULL) )? 0 : -1;
-}
-
-template <typename ElemType> nano_time_t
-AsumPerformanceTest<ElemType>::etalonPerfSingle(void)
-{
- nano_time_t time = 0;
-
-#ifdef PERF_TEST_WITH_ACML
-
- time = getCurrentTime();
- clMath::blas::asum(params_.N, blasX_, params_.offBX, params_.incx );
- time = getCurrentTime() - time;
-
-#endif // PERF_TEST_WITH_ACML
-
- return time;
-}
-
-
-template <typename ElemType> nano_time_t
-AsumPerformanceTest<ElemType>::clblasPerfSingle(void)
-{
- nano_time_t time;
- cl_event event;
- cl_int status;
- cl_command_queue queue = base_->commandQueues()[0];
-
- DataType type;
- type = ( typeid(ElemType) == typeid(float))? TYPE_FLOAT:( typeid(ElemType) == typeid(double))? TYPE_DOUBLE:
- ( typeid(ElemType) == typeid(FloatComplex))? TYPE_COMPLEX_FLOAT: TYPE_COMPLEX_DOUBLE;
-
- event = NULL;
- clFinish( queue);
- time = getCurrentTime();
-
-#define TIMING
-#ifdef TIMING
- int iter = 100;
- for ( int i=1; i <= iter; i++)
- {
-#endif
-
- status = (cl_int)clMath::clblas::asum( type, params_.N, mobjAsum_, params_.offa, mobjX_, params_.offBX, params_.incx,
- scratchBuff, 1, &queue, 0, NULL, &event);
- if (status != CL_SUCCESS) {
- cerr << "The CLBLAS ASUM 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;
- }
-
- time = getCurrentTime();
- status = waitForSuccessfulFinish(1, &queue, &event);
- if (status == CL_SUCCESS) {
- time = getCurrentTime() - time;
- }
- else {
- cerr << "Waiting for completion of commands to the queue failed, "
- "status = " << status << endl;
- time = NANOTIME_ERR;
- }
-#endif
- return time;
-}
-
-} // namespace clMath
-
-TEST_P(ASUM, sasum)
-{
- TestParams params;
-
- getParams(&params);
- AsumPerformanceTest<float>::runInstance(FN_SASUM, &params);
-}
-
-
-TEST_P(ASUM, dasum)
-{
- TestParams params;
-
- getParams(&params);
- AsumPerformanceTest<double>::runInstance(FN_DASUM, &params);
-}
-
-TEST_P(ASUM, scasum)
-{
- TestParams params;
-
- getParams(&params);
- AsumPerformanceTest<FloatComplex>::runInstance(FN_SCASUM, &params);
-}
-
-
-TEST_P(ASUM, dzasum)
-{
- TestParams params;
-
- getParams(&params);
- AsumPerformanceTest<DoubleComplex>::runInstance(FN_DZASUM, &params);
-}
generated by cgit v1.2.3 (git 2.39.1) at 2024-08-03 00:05:39 +0000