MLPutInteger64Array()

#include "mathlink.h"

/* send an array of 64-bit numbers to a link */

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

    for(i = 0; i < 200; i++)
        {
#if ML64BIT_MATHLINK
            /* this machine is a 64-bit machine */
            *((mlint64 *)array + i) = i;
#else
            /* this machine is a 32-bit machine */
            ((mlint64 *)array + i)->hi  = 0;
            ((mlint64 *)array + i)->low = i;
#endif
        }

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

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