<![CDATA[
int main() {
array double x[6]={1,2,3,4,5,6}, y[6];
array double complex zx[2][3]={complex(1,1),2,3,complex(2,2),5,6}, zy[2][3];
array double x1[2][3][4]={{1,2,3,4,
5,6,7,8,
5,6,7,8},
{10,11,12,13,
10,11,12,13,
14,15,16,17}};
array double y1[2][3][4];
cumsum(y,x);
printf("x=%f",x);
printf("y=%f",y);
printf("\n");
cumsum(zy,zx);
printf("zx=%5.2f",zx);
printf("zy=%5.2f",zy);
printf("\n");
cumsum(y1,x1);
printf("x1=%f",x1);
printf("y1=%f",y1);
}
]]>
<![CDATA[
x=1.000000 2.000000 3.000000 4.000000 5.000000 6.000000
y=1.000000 3.000000 6.000000 10.000000 15.000000 21.000000
zx=complex( 1.00, 1.00) complex( 2.00, 0.00) complex( 3.00, 0.00)
complex( 2.00, 2.00) complex( 5.00, 0.00) complex( 6.00, 0.00)
zy=complex( 1.00, 1.00) complex( 3.00, 1.00) complex( 6.00, 1.00)
complex( 2.00, 2.00) complex( 7.00, 2.00) complex(13.00, 2.00)
x1=1.000000 2.000000 3.000000 4.000000
5.000000 6.000000 7.000000 8.000000
5.000000 6.000000 7.000000 8.000000
10.000000 11.000000 12.000000 13.000000
10.000000 11.000000 12.000000 13.000000
14.000000 15.000000 16.000000 17.000000
y1=1.000000 3.000000 6.000000 10.000000
5.000000 11.000000 18.000000 26.000000
5.000000 11.000000 18.000000 26.000000
10.000000 21.000000 33.000000 46.000000
10.000000 21.000000 33.000000 46.000000
14.000000 29.000000 45.000000 62.000000
]]>