Task

Write two equal-sized numerical arrays 'x' and 'y' to
a two-column text file named 'filename'.

The first column of the file contains values from an 'x'-array with a
given 'xprecision', the second -- values from 'y'-array with 'yprecision'.

For example, considering:

   x = {1, 2, 3, 1e11};
   y = {1, 1.4142135623730951, 1.7320508075688772, 316227.76601683791}; 
                                                          /* sqrt(x) */
   xprecision = 3;
   yprecision = 5;

The file should look like:

   1    1
   2    1.4142
   3    1.7321
   1e+011   3.1623e+005

This task is intended as a subtask for Measure relative performance of sorting algorithms implementations.




*Process source attributes xref;
 aaa: Proc Options(main);
 declare X(5) float (9)  initial (1, 2, 3, 4, 5),
         Y(5) float (18) initial (9, 8, 7, 6, 1e9);
 declare (x_precision, y_precision) fixed binary;
 Dcl out stream output;
 open file(out) title('/OUT.TXT,type(text),recsize(100)');
 x_precision = 9;
 y_precision = 16;
 put file(out) edit((X(i),Y(i) do i=1 to 5))
                    (skip,e(19,x_precision),
                     x(2),e(24,y_precision));
 end;