| 2977 | //ASUM |
| 2978 | |
| 2979 | clblasStatus |
| 2980 | clMath::clblas::asum( |
| 2981 | DataType type, |
| 2982 | size_t N, |
| 2983 | cl_mem asum, |
| 2984 | size_t offAsum, |
| 2985 | cl_mem X, |
| 2986 | size_t offx, |
| 2987 | int incx, |
| 2988 | cl_mem scratchBuff, |
| 2989 | cl_uint numCommandQueues, |
| 2990 | cl_command_queue *commandQueues, |
| 2991 | cl_uint numEventsInWaitList, |
| 2992 | const cl_event *eventWaitList, |
| 2993 | cl_event *events) |
| 2994 | |
| 2995 | { |
| 2996 | switch(type){ |
| 2997 | |
| 2998 | case TYPE_FLOAT: |
| 2999 | return clblasSasum( N, asum, offAsum, X, offx, incx, scratchBuff, |
| 3000 | numCommandQueues,commandQueues, numEventsInWaitList, |
| 3001 | eventWaitList, events); |
| 3002 | |
| 3003 | case TYPE_DOUBLE: |
| 3004 | return clblasDasum( N, asum, offAsum, X, offx, incx, scratchBuff, |
| 3005 | numCommandQueues,commandQueues, numEventsInWaitList, |
| 3006 | eventWaitList, events); |
| 3007 | |
| 3008 | case TYPE_COMPLEX_FLOAT: |
| 3009 | return clblasScasum( N, asum, offAsum, X, offx, incx, scratchBuff, |
| 3010 | numCommandQueues,commandQueues, numEventsInWaitList, |
| 3011 | eventWaitList, events); |
| 3012 | |
| 3013 | case TYPE_COMPLEX_DOUBLE: |
| 3014 | return clblasDzasum( N, asum, offAsum, X, offx, incx, scratchBuff, |
| 3015 | numCommandQueues,commandQueues, numEventsInWaitList, |
| 3016 | eventWaitList, events); |
| 3017 | |
| 3018 | default: |
| 3019 | return clblasInvalidValue; |
| 3020 | } |
| 3021 | |
| 3022 | } |
| 3023 | |
| 3024 | //DOTC |
| 3025 | clblasStatus |
nothing calls this directly
no test coverage detected