kv

-

kernel handle of type MKernelVector

rt

-

type ALGEB rtable object

    #include "maplec.h"

    ALGEB M_DECL MySetAllElems( MKernelVector kv, ALGEB *args )

    {

    M_INT argc, n, i;

    ALGEB rt;

    FLOAT64 val, *data;

    RTableSettings rts;

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

    if( argc != 2 ) {

        MapleRaiseError(kv,"two argument expected");

            return( NULL );

        }

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

    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( i=0; i<n; ++i ) {

        data[i] = val;

    }

    return( rt );

    }