#include "mathlink.h"/* send a list of extended-precision floating-point numbers to a link */void f(MLINK lp){ mlextended_double list[20]; int i; for(i = 0; i < 20; i++) list[i] = i + .9; if(! MLPutReal128List(lp, (mlextended_double *)list, 20)) { /* unable to put the list to lp */ }}