This is documentation for Mathematica 6, which was
based on an earlier version of the Wolfram Language.
View current documentation (Version 11.2)
MathLink C Function


int MLPutReal128Array(MLINK link, mlextended_double *a, int *dims, char **heads, int d)
puts an array of extended-precision floating-point numbers to the MathLink connection specified by link to form a depth d array with dimensions dims.
  • The array a must be laid out in memory like a C array declared explicitly as mlextended_double a[m][n]....
  • If heads is given as NULL, the array will be assumed to have head List at every level.
  • The length of the array at level i is taken to be dims[i].
  • MLPutReal128Array() returns 0 in the event of an error, and a nonzero value otherwise.
  • Use MLError() to retrieve the error code if MLPutReal128Array() fails.
  • MLPutReal128Array() is declared in the MathLink header file mathlink.h.
#include "mathlink.h"

/* put an array of extended-precision floating-point numbers to a link */

void f(MLINK lp)
    mlextended_double array[2][10][2];
    int dims[3];
    int i;

    for(i = 0; i < 40; i++)
        *((double *)array + i) = i + .1;

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

    if(! MLPutReal128Array(lp, (mlextended_double *)array, (int *)dims, (char **)0, 3))
        { /* unable to send the array to lp */ }