#include <R.h>

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

    int i;

    if (n < 1)
        error("arg n was %d, must be positive\n", n);

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