| 2782 | } |
| 2783 | |
| 2784 | clblasStatus |
| 2785 | clMath::clblas::copy( |
| 2786 | DataType type, |
| 2787 | size_t N, |
| 2788 | cl_mem X, |
| 2789 | size_t offx, |
| 2790 | int incx, |
| 2791 | cl_mem Y, |
| 2792 | size_t offy, |
| 2793 | int incy, |
| 2794 | cl_uint numCommandQueues, |
| 2795 | cl_command_queue *commandQueues, |
| 2796 | cl_uint numEventsInWaitList, |
| 2797 | const cl_event *eventWaitList, |
| 2798 | cl_event *events) |
| 2799 | { |
| 2800 | switch(type) |
| 2801 | { |
| 2802 | |
| 2803 | case TYPE_FLOAT: |
| 2804 | return clblasScopy( |
| 2805 | N, X, offx, incx, Y, |
| 2806 | offy, incy, |
| 2807 | numCommandQueues,commandQueues, numEventsInWaitList, |
| 2808 | eventWaitList, events); |
| 2809 | |
| 2810 | case TYPE_DOUBLE: |
| 2811 | return clblasDcopy( |
| 2812 | N, X, offx, incx, Y, |
| 2813 | offy, incy, |
| 2814 | numCommandQueues, commandQueues, numEventsInWaitList, |
| 2815 | eventWaitList, events); |
| 2816 | |
| 2817 | case TYPE_COMPLEX_FLOAT: |
| 2818 | return clblasCcopy( |
| 2819 | N, X, offx, incx, Y, |
| 2820 | offy, incy, |
| 2821 | numCommandQueues, commandQueues, numEventsInWaitList, |
| 2822 | eventWaitList, events); |
| 2823 | |
| 2824 | case TYPE_COMPLEX_DOUBLE: |
| 2825 | return clblasZcopy( |
| 2826 | N, X, offx, incx, Y, |
| 2827 | offy, incy, |
| 2828 | numCommandQueues, commandQueues, numEventsInWaitList, |
| 2829 | eventWaitList, events); |
| 2830 | |
| 2831 | default: |
| 2832 | return clblasInvalidValue; |
| 2833 | } |
| 2834 | } |
| 2835 | |
| 2836 | |
| 2837 | // scal, csscal & zdscal wrappers |
nothing calls this directly
no test coverage detected