import com.maplesoft.openmaple.*;

import com.maplesoft.externalcall.MapleException;

class Example

{

    public static void main( String notused[] ) throws MapleException

    {

    String mapleArgs[];

    Engine engine;

    ComplexDoubleRTable a1, iCopy;

    int index[];

    mapleArgs = new String[1];

    mapleArgs[0] = "java";

    engine = new Engine( mapleArgs, new EngineCallBacksDefault(),

        null, null );

    a1 = (ComplexDoubleRTable)engine.evaluate( "Array( 1..2, 1..2, [[0.1,0.2],[0.3+.3*I,0.4+0.4*I]], datatype=complex[8]):" );

    System.out.println( a1 );

    iCopy = a1.copyImaginary();

    System.out.println( iCopy );

    index = new int[2];

    index[0] = 1;

    index[1] = 1;

    iCopy.assign( index, 10.0, 10.0 );

    System.out.println( a1 );

    System.out.println( iCopy );

    }

}

Array(1..2, 1..2,

[[.100000000000000004+0.*I,.200000000000000010+0.*I],[.299999999999999988+.299999999999999988*I,.400000000000000022+.400000000000000022*I]],

datatype = complex[8], storage = rectangular, order = Fortran_order)

Array(1..2, 1..2,

[[0.+0.*I,0.+0.*I],[.299999999999999988+0.*I,.400000000000000022+0.*I]],

datatype = complex[8], storage = rectangular, order = Fortran_order)

Array(1..2, 1..2,

[[.100000000000000004+0.*I,.200000000000000010+0.*I],[.299999999999999988+.299999999999999988*I,.400000000000000022+.400000000000000022*I]],

datatype = complex[8], storage = rectangular, order = Fortran_order)

Array(1..2, 1..2,

[[10.+10.*I,0.+0.*I],[.299999999999999988+0.*I,.400000000000000022+0.*I]],

datatype = complex[8], storage = rectangular, order = Fortran_order)