MLPutInteger16Array()

#include "mathlink.h"

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

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

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

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

    if(! MLPutInteger16Array(lp, (short *)array, (int *)dimensions, (char **)0, 4))
        { /* unable to put the array to lp */ }
}