<![CDATA[
int main() {
double a[2][3] = {1,2,3,
4,5,6};
array double b[3][4] = {1,2,3,4,
5,6,7,8,
1,2,3,4};
array double meana1[3], meanb1[4];
double meanval;
mean(transpose(a), meana1);
printf("mean(traspose(a), meana1) = %f\n", meana1);
meanval = mean(transpose(b), meanb1);
printf("mean(transpose(b), meanb1) = %f\n", meanb1);
}
]]>
<![CDATA[
mean(traspose(a), meana1) = 2.500000 3.500000 4.500000
mean(transpose(b), meanb1) = 2.333333 3.333333 4.333333 5.333333
]]>