kv

-

kernel handle of type MKernelVector

s

-

type ALGEB indexable object

n

-

length of ind

ind

-

index array

    #include "maplec.h"

    ALGEB M_DECL MyRe( MKernelVector kv, ALGEB *args )

    {

    ALGEB list, val;

    char *code;

    M_INT i, n, index[1];

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

        MapleRaiseError(kv,"two arguments expected");

        return( NULL );

    }

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

    list = MapleListAlloc(kv,n);

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

        index[0] = i;

        val = MapleSelectIndexed(kv,args[2],1,index);

        MapleListAssign(kv,list,i,MapleSelectRealPart(kv,val));

    }

    return( list );

    }