MLPutInteger32Array()

#include "mathlink.h"

/* send an array of 32-bit integers to a link */

void f(MLINK lp)
{
    int array[6][10][2][1];
    int dims[4];
    int i;

    for(i = 0; i < 120; i++)
        *((int *)array + i) = i;

    dims[0] = 6;
    dims[1] = 10;
    dims[2] = 2;
    dims[3] = 1;

    if(! MLPutInteger32Array(lp, (int *)array, (int *)dims, (char **)0, 4))
        { /* unable to send the array to lp */ }
}