kv

-

kernel handle returned by StartMaple

rts

-

pointer to an RTableSettings structure

rt

-

Maple rtable object

Public Sub TestRTableCopy(ByVal kv As Long)

    Dim rts As RTableSettings

    Dim rt As Long

    ' original rtable

    rt = EvalMapleStatement(kv, "Matrix([[1,2,3],[4,5,6]]);")

    ' create the copy with dense storage and float[8] datatype /

    RTableGetDefaults kv, rts

    rts.data_type = RTABLE_FLOAT64

    rts.storage = RTABLE_RECT

    rt = RTableCopy(kv, rts, rt)

    MapleALGEB_Printf1 kv, "result = %a", rt

End Sub