kv

-

kernel handle of type MKernelVector

rt

-

type ALGEB rtable object

    #include "maplec.h"

    ALGEB M_DECL MySumElems( MKernelVector kv, ALGEB *args )

    {

    M_INT argc, n, i;

    ALGEB rt;

    FLOAT64 val, *data;

    RTableSettings rts;

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

    if( argc != 1 ) {

        MapleRaiseError(kv,"one argument expected");

            return( NULL );

        }

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

        MapleRaiseError(kv,"rtable expected for parameter 1");

            return( NULL );

        }

    rt = args[1];

    RTableGetSettings(kv,&rts,rt);

    if( rts.data_type != RTABLE_FLOAT64 ) {

        MapleRaiseError(kv,"float[8] rtable expected for parameter 1");

            return( NULL );

        }

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

    n = RTableNumElements(kv,rt);

    for( val=0,i=0; i<n; ++i ) {

        val += data[i];

    }

    return( ToMapleFloat(kv,val) );

    }