kv

-

kernel handle of type MKernelVector

option

-

character string

val

-

type ALGEB value

    #include "maplec.h"

    ALGEB M_DECL MyDelay( MKernelVector kv, ALGEB *args )

    {

    M_INT i, n;

    ALGEB start_time, fin_time;

        double junk;

    if( 1 != MapleNumArgs(kv,(ALGEB)args) ) {

        MapleRaiseError(kv,"one argument expected");

        return( NULL );

    }

    MapleKernelOptions(kv,"assertlevel",ToMapleInteger(kv,2));

    n = MapleToM_INT(kv,args[1]);

    start_time = MapleKernelOptions(kv,"cputime",NULL);

    for( i=1; i<=n; ++i ) {

        junk *= 2;

    }

    MapleAssign(kv,ToMapleName(kv,"myjunk",TRUE),ToMapleFloat(kv,junk));

    fin_time = MapleKernelOptions(kv,"cputime",NULL);

    return( EvalMapleProc(kv,ToMapleName(kv,"-",TRUE),

                    2,fin_time,start_time) );

    }