# Generated programmatically at 2016-07-17 12:39:45
cuModuleLoad <-
function( fname )
{
ans = .Call('R_cuModuleLoad', as(fname, 'character'))
if(is(ans, 'CUresult') && ans != 0)
raiseError(ans, 'R_cuModuleLoad')
ans
}
cuModuleLoadData <-
function( image )
{
ans = .Call('R_cuModuleLoadData', as(image, 'voidPtr'))
if(is(ans, 'CUresult') && ans != 0)
raiseError(ans, 'R_cuModuleLoadData')
ans
}
cuModuleLoadFatBinary <-
function( fatCubin )
{
ans = .Call('R_cuModuleLoadFatBinary', as(fatCubin, 'voidPtr'))
if(is(ans, 'CUresult') && ans != 0)
raiseError(ans, 'R_cuModuleLoadFatBinary')
ans
}
cuModuleUnload <-
function( hmod )
{
ans = .Call('R_cuModuleUnload', as(hmod, 'CUmodule'))
if(is(ans, 'CUresult') && ans != 0)
raiseError(ans, 'R_cuModuleUnload')
ans
}
cuModuleGetFunction <-
function( hfunc, hmod, name )
{
ans = .Call('R_cuModuleGetFunction', as(hfunc, 'CUfunctionPtr'), as(hmod, 'CUmodule'), as(name, 'character'))
if(is(ans, 'CUresult') && ans != 0)
raiseError(ans, 'R_cuModuleGetFunction')
ans
}
cuModuleGetGlobal <-
function( hmod, name )
{
ans = .Call('R_cuModuleGetGlobal_v2', as(hmod, 'CUmodule'), as(name, 'character'))
if(is(ans, 'CUresult') && ans != 0)
raiseError(ans, 'R_cuModuleGetGlobal_v2')
ans
}
cuModuleGetTexRef <-
function( hmod, name )
{
ans = .Call('R_cuModuleGetTexRef', as(hmod, 'CUmodule'), as(name, 'character'))
if(is(ans, 'CUresult') && ans != 0)
raiseError(ans, 'R_cuModuleGetTexRef')
ans
}
cuModuleGetSurfRef <-
function( hmod, name )
{
ans = .Call('R_cuModuleGetSurfRef', as(hmod, 'CUmodule'), as(name, 'character'))
if(is(ans, 'CUresult') && ans != 0)
raiseError(ans, 'R_cuModuleGetSurfRef')
ans
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.