oops(x, n)
double *x ;
long *n ;
{
    long i ;
    for (i=0 ; i <= *n ; i++) /* should be <, not <= */
        x[i] = x[i] + 10 ;
}