Function clblasCreateMatrixFromHost

src/library/blas/matrix.c:165–225

cl_mem clblasCreateMatrixFromHost(
    cl_context context, 
    clblasOrder order,
    size_t rows,
    size_t columns, 
    size_t elemsize,
    size_t ld,
    void * host,
    size_t off_host, 
    size_t ld_host,
    cl_command_queue command_queue,
    cl_uint numEventsInWaitList,
    const cl_event *eventWaitList,  
    cl_int * err)
{
  size_t fullsize;
  cl_mem out;
  size_t i;

  out = clblasCreateMatrixWithLd(
      context,
      order,
      rows,
      columns,
      elemsize,
      ld,
      &fullsize,
      err);

  if( ! *err )
  {
    printf("ok\n");
    // TODO use ReadMatrix instead ?
    if( order == clblasRowMajor )
    {
      for( i = 0; i < rows; i++ )
      {
        const size_t host_orig[3] = {off_host, off_host, 0};
        const size_t buff_orig[3] = {0, 0, 0};
        const size_t region[3] = {columns*elemsize, rows, 1};
        *err = clEnqueueWriteBufferRect(
            command_queue,
            out,
            CL_TRUE,
            buff_orig,
            host_orig,
            region,
            columns * elemsize,
            0,
            ld_host * elemsize,
            0,
            host,
            numEventsInWaitList,
            eventWaitList,
            NULL);
      }
    }
  }