/* for declaration of error() */
#include <R.h>

void addone(double *x, int *nx, double *val, int *nv)
{
    if (nx[0] == nv[0]) {
	int n, i;

	n = nx[0];
	for (i = 0; i < n; i++)
	    val[i] = x[i] + 1.0;
    }
    else error("argument and value lengths do not match.");
}