diff options
Diffstat (limited to 'external/clBLAS/src/library/blas/xsyr.c')
-rw-r--r-- | external/clBLAS/src/library/blas/xsyr.c | 248 |
1 files changed, 0 insertions, 248 deletions
diff --git a/external/clBLAS/src/library/blas/xsyr.c b/external/clBLAS/src/library/blas/xsyr.c deleted file mode 100644 index 9358920f..00000000 --- a/external/clBLAS/src/library/blas/xsyr.c +++ /dev/null @@ -1,248 +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 <stdio.h> -#include <string.h> -#include <clBLAS.h> - -#include <devinfo.h> -#include "clblas-internal.h" -#include "solution_seq.h" - -clblasStatus -doSyr( - CLBlasKargs *kargs, - clblasOrder order, - clblasUplo uplo, - size_t N, - const cl_mem X, - size_t offx, - int incx, - cl_mem A, - size_t offa, - size_t lda, - cl_uint numCommandQueues, - cl_command_queue* commandQueue, - cl_uint numEventsInWaitList, - const cl_event* eventWaitList, - cl_event* events) -{ - cl_int err; - ListHead seq; - clblasStatus retCode = clblasSuccess; - - if (!clblasInitialized) { - return clblasNotInitialized; - } - - #ifdef DEBUG_SYR - printf("doSyr called\n"); - #endif - - /* Validate arguments */ - - if ((retCode = checkMemObjects(A, X, 0, false, A_MAT_ERRSET, X_VEC_ERRSET, END_ERRSET))) { - printf("Invalid mem object..\n"); - return retCode; - } - - /* - * PENDING: - * checkMatrixSizes() does not account of "offa" argument. - * Need to be added. - */ - if ((retCode = checkMatrixSizes(kargs->dtype, order, clblasNoTrans, N, N, A, offa, lda, A_MAT_ERRSET))) { - printf("Invalid Size for A\n"); - return retCode; - } - if ((retCode = checkVectorSizes(kargs->dtype, N, X, offx, incx, X_VEC_ERRSET))) { - printf("Invalid Size for X\n"); - return retCode; - } - - if ((commandQueue == NULL) || (numCommandQueues == 0)) - { - return clblasInvalidValue; - } - - if ((numEventsInWaitList !=0) && (eventWaitList == NULL)) - { - return clblasInvalidEventWaitList; - } - - if(order == clblasRowMajor) - { - kargs->order = clblasColumnMajor; - kargs->uplo = (uplo == clblasUpper) ? clblasLower : clblasUpper; - } - else - { - kargs->order = order; - kargs->uplo = uplo; - } - kargs->N = N; - kargs->A = A; - kargs->lda.matrix = lda; - kargs->B = X; - kargs->ldb.vector = incx; - kargs->offBX = offx; - kargs->offa = offa; - kargs->offA = offa; - - #ifdef DEBUG_SYR - printf("Calling makeSolutionSeq : SYR\n"); - #endif - - /* - * Always use CommandQueue (0) - * PENDING: - * 1. No Multi-GPU / Multi-command queue support - * 2. This can be optimized to use the commandQ with the higher - * memmory bandwidth that supports the data-type and the LDA - */ - numCommandQueues = 1; - - listInitHead(&seq); - err = makeSolutionSeq(CLBLAS_SYR, kargs, numCommandQueues, commandQueue, - numEventsInWaitList, eventWaitList, events, &seq); - if (err == CL_SUCCESS) { - err = executeSolutionSeq(&seq); - } - - freeSolutionSeq(&seq); - return (clblasStatus)err; -} - - -clblasStatus -clblasSsyr( - clblasOrder order, - clblasUplo uplo, - size_t N, - cl_float alpha, - const cl_mem X, - size_t offx, - int incx, - cl_mem A, - size_t offa, - size_t lda, - cl_uint numCommandQueues, - cl_command_queue* commandQueue, - cl_uint numEventsInWaitList, - const cl_event* eventWaitList, - cl_event* events) - { - CLBlasKargs kargs; - - memset(&kargs, 0, sizeof(kargs)); - kargs.dtype = TYPE_FLOAT; - kargs.alpha.argFloat = alpha; - kargs.pigFuncID = CLBLAS_SYR; - - #ifdef DEBUG_SYR - printf("Ssyr called\n"); - #endif - - return doSyr(&kargs, order, uplo, N, X, offx, incx, A, offa, lda, numCommandQueues, commandQueue, numEventsInWaitList, eventWaitList, events); - } - -clblasStatus -clblasDsyr( - clblasOrder order, - clblasUplo uplo, - size_t N, - cl_double alpha, - const cl_mem X, - size_t offx, - int incx, - cl_mem A, - size_t offa, - size_t lda, - cl_uint numCommandQueues, - cl_command_queue* commandQueue, - cl_uint numEventsInWaitList, - const cl_event* eventWaitList, - cl_event* events) - { - CLBlasKargs kargs; - - memset(&kargs, 0, sizeof(kargs)); - kargs.dtype = TYPE_DOUBLE; - kargs.alpha.argDouble = alpha; - kargs.pigFuncID = CLBLAS_SYR; - - #ifdef DEBUG_SYR - printf("Dsyr called\n"); - #endif - - return doSyr(&kargs, order, uplo, N, X, offx, incx, A, offa, lda, numCommandQueues, commandQueue, numEventsInWaitList, eventWaitList, events); - } - -clblasStatus -clblasSspr( - clblasOrder order, - clblasUplo uplo, - size_t N, - cl_float alpha, - const cl_mem X, - size_t offx, - int incx, - cl_mem AP, - size_t offa, - cl_uint numCommandQueues, - cl_command_queue* commandQueue, - cl_uint numEventsInWaitList, - const cl_event* eventWaitList, - cl_event* events) - { - CLBlasKargs kargs; - - memset(&kargs, 0, sizeof(kargs)); - kargs.dtype = TYPE_FLOAT; - kargs.alpha.argFloat = alpha; - kargs.pigFuncID = CLBLAS_SPR; - - return doSyr(&kargs, order, uplo, N, X, offx, incx, AP, offa, 0, numCommandQueues, commandQueue, numEventsInWaitList, eventWaitList, events); - } - -clblasStatus -clblasDspr( - clblasOrder order, - clblasUplo uplo, - size_t N, - cl_double alpha, - const cl_mem X, - size_t offx, - int incx, - cl_mem AP, - size_t offa, - cl_uint numCommandQueues, - cl_command_queue* commandQueue, - cl_uint numEventsInWaitList, - const cl_event* eventWaitList, - cl_event* events) - { - CLBlasKargs kargs; - - memset(&kargs, 0, sizeof(kargs)); - kargs.dtype = TYPE_DOUBLE; - kargs.alpha.argDouble = alpha; - kargs.pigFuncID = CLBLAS_SPR; - - return doSyr(&kargs, order, uplo, N, X, offx, incx, AP, offa, 0, numCommandQueues, commandQueue, numEventsInWaitList, eventWaitList, events); - } - |