kv

-

kernel handle of type MKernelVector

rts

-

pointer to an RTableSettings structure

rt

-

type ALGEB rtable object

    #include "maplec.h"

    ALGEB M_DECL MyScalarAdd( MKernelVector kv, ALGEB *args )

    {

    M_INT argc, i;

    RTableSettings rts;

    ALGEB rt;

    FLOAT64 *data, val;

    argc = MapleNumArgs(kv,(ALGEB)args);

    if( argc != 2 ) {

        MapleRaiseError(kv,"two arguments expected");

            return( NULL );

        }

    if( !IsMapleRTable(kv,args[1]) ) {

        MapleRaiseError(kv,"rtable expected");

            return( NULL );

        }

    val = MapleToFloat64(kv,args[2]);

    RTableGetDefaults(kv,&rts);

    rts.data_type = RTABLE_FLOAT64;

    rts.storage = RTABLE_RECT;

    rt = RTableCopy(kv,&rts,args[1]);

    data = (FLOAT64*)RTableDataBlock(kv,rt);

    for( i=0; i<RTableNumElements(kv,rt); ++i ) {

        data[i] += val;

    }

    return( rt );

    }