static void f2xact(int *nrow, int *ncol, double *table, int *ldtabl,
double *expect, double *percnt, double *emin, double
*prt, double *pre, double *fact, int *ico, int
static void f2xact(int *nrow, int *ncol, double *table, int *ldtabl,
double *expect, double *percnt, double *emin, double
*prt, double *pre, double *fact, int *ico, int
int *key, int *ldkey, int *last, int *ipn);
static void f7xact(int *nrow, int *imax, int *idif, int *k, int *ks,
int *iflag);
int *key, int *ldkey, int *last, int *ipn);
static void f7xact(int *nrow, int *imax, int *idif, int *k, int *ks,
int *iflag);
-static void f8xact(int *irow, int *is, int *i1, int *izero, int *new);
+static void f8xact(int *irow, int *is, int *i1, int *izero, int *myNew);
static double f9xact(int *n, int *mm, int *ir, double *fact);
static void f10act(int *nrow, int *irow, int *ncol, int *icol,
double *val, int *xmin, double *fact, int *nd,
int *ne, int *m);
static double f9xact(int *n, int *mm, int *ir, double *fact);
static void f10act(int *nrow, int *irow, int *ncol, int *icol,
double *val, int *xmin, double *fact, int *nd,
int *ne, int *m);
-static void f11act(int *irow, int *i1, int *i2, int *new);
+static void f11act(int *irow, int *i1, int *i2, int *myNew);
static void prterr(int icode, char *mes);
static int iwork(int iwkmax, int *iwkpt, int number, int itype);
// void fexact(int *nrow, int *ncol, double *table, int *ldtabl,
// double *expect, double *percnt, double *emin, double *prt,
static void prterr(int icode, char *mes);
static int iwork(int iwkmax, int *iwkpt, int number, int itype);
// void fexact(int *nrow, int *ncol, double *table, int *ldtabl,
// double *expect, double *percnt, double *emin, double *prt,
static void isort(int *n, int *ix);
static double gammds(double *y, double *p, int *ifault);
static double alogam(double *x, int *ifault);
static void isort(int *n, int *ix);
static double gammds(double *y, double *p, int *ifault);
static double alogam(double *x, int *ifault);
-void
-fexact(int *nrow, int *ncol, double *table, int *ldtabl,
+void fexact(int *nrow, int *ncol, double *table, int *ldtabl,
double *expect, double *percnt, double *emin, double *prt,
double *expect, double *percnt, double *emin, double *prt,
// thanks to the hint from Jason Turner I don't do it anymore. (R.D-U).
/* AMISS is a missing value indicator which is returned when the
probability is not defined. */
const double amiss = -12345.;
// thanks to the hint from Jason Turner I don't do it anymore. (R.D-U).
/* AMISS is a missing value indicator which is returned when the
probability is not defined. */
const double amiss = -12345.;
/* TOL is chosen as the square root of the smallest relative spacing. */
#ifndef Macintosh
const static double tol = 3.45254e-7;
/* TOL is chosen as the square root of the smallest relative spacing. */
#ifndef Macintosh
const static double tol = 3.45254e-7;
-f8xact(int *irow, int *is, int *i1, int *izero, int *new)
+f8xact(int *irow, int *is, int *i1, int *izero, int *myNew)
-f11act(int *irow, int *i1, int *i2, int *new)
+f11act(int *irow, int *i1, int *i2, int *myNew)
- for (i = 1; i <= (*i1 - 1); ++i) new[i] = irow[i];
- for (i = *i1; i <= *i2; ++i) new[i] = irow[i + 1];
+ for (i = 1; i <= (*i1 - 1); ++i) myNew[i] = irow[i];
+ for (i = *i1; i <= *i2; ++i) myNew[i] = irow[i + 1];
static double a1 = .918938533204673;
static double a2 = 5.95238095238e-4;
static double a3 = 7.93650793651e-4;
static double a1 = .918938533204673;
static double a2 = 5.95238095238e-4;
static double a3 = 7.93650793651e-4;