Function assignKargs

src/library/blas/gens/rotm_reg.cpp:261–291

__kernel void %PREFIXrotm_kernel( __global %TYPE *_X, __global %TYPE *_Y, uint N, uint offx, int incx, uint offy, int incy #ifndef DO_ROT , __global %TYPE *_param, uint offParam // Rotm parameters #else , %PTYPE C, %PTYPE S // Rot parameters #endif */

#endif
*/
static void
assignKargs(KernelArg *args, const void *params, const void* )
{
    CLBlasKargs *blasArgs = (CLBlasKargs*)params;
	cl_int incx, incy;

    INIT_KARG(&args[0], blasArgs->A);
	INIT_KARG(&args[1], blasArgs->B);
    initSizeKarg(&args[2], blasArgs->N);
    initSizeKarg(&args[3], blasArgs->offBX);
    incx = blasArgs->ldb.Vector;
    INIT_KARG(&args[4], incx);
    initSizeKarg(&args[5], blasArgs->offCY);
    incy = blasArgs->ldc.Vector;
    INIT_KARG(&args[6], incy);

    if(blasArgs->pigFuncID == CLBLAS_ROT)
    {
        DataType alphaBetaType = (blasArgs->dtype == TYPE_COMPLEX_FLOAT)? TYPE_FLOAT:
                                ((blasArgs->dtype == TYPE_COMPLEX_DOUBLE)? TYPE_DOUBLE:  blasArgs->dtype);
        assignScalarKarg(&args[7], &(blasArgs->alpha), alphaBetaType);
	    assignScalarKarg(&args[8], &(blasArgs->beta), alphaBetaType);
	}
	else if(blasArgs->pigFuncID == CLBLAS_ROTM)
	{
        INIT_KARG(&args[7], blasArgs->D);
        initSizeKarg(&args[8], blasArgs->offd);
    }

	return;
}