fv()

static void fv ( unsigned  ndim, unsigned  npt, const double *  x, void *  d_, unsigned  fdim, double *  fval  )

static

{
     fv_data *d = (fv_data *) d_;
     double *fval1 = d->fval1;
     unsigned i, k;
     /* printf("npt = %u\n", npt); */
     for (i = 0; i < npt; ++i) {
          d->f(ndim, x + i*ndim, d->fdata, fdim, fval1);
          for (k = 0; k < fdim; ++k) fval[k*npt + i] = fval1[k];
     }
}