evalRR0_0fs()

static void evalRR0_0fs ( double *  pts, unsigned  dim, double *  p, const double *  c, const double *  r  )

static

{
     unsigned i, j;

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

               p[j] = c[j];     /* Done with j -> Restore p[j] */
          }
          p[i] = c[i];          /* Done with i -> Restore p[i] */
     }
}