void foo(long *nin, double *x)
{
	int n = nin[0];
	int i;

	for (i=0; i<n; i++)
		x[i] = x[i] * x[i];
}