evalR0_0fs4d()

static void evalR0_0fs4d ( double *  pts, unsigned  dim, double *  p, const double *  c, const double *  r1, const double *  r2  )

static

{
     unsigned i;

     memcpy(pts, p, sizeof(double) * dim); pts += dim;

     for (i = 0; i < dim; i++) {
          p[i] = c[i] - r1[i];
          memcpy(pts, p, sizeof(double) * dim); pts += dim;

          p[i] = c[i] + r1[i];
          memcpy(pts, p, sizeof(double) * dim); pts += dim;

          p[i] = c[i] - r2[i];
          memcpy(pts, p, sizeof(double) * dim); pts += dim;

          p[i] = c[i] + r2[i];
          memcpy(pts, p, sizeof(double) * dim); pts += dim;

          p[i] = c[i];
     }
}