#include <stdio.h>
#include <stdlib.h>
#include <stddef.h>
#include <math.h>
#include <string.h>
#include <signal.h>
#include <time.h>
#include <errno.h>
#include <time.h>
#include "ranlib.h"

#define ERR_CRITICAL(x) {fprintf(stderr, x); exit(1);}
#define GET_PSUM \
	for (j=0;j<ndim;j++) {\
	for(sum=0.0,i=0;i<mpts;i++) sum += P[i].index.array[j];\
	psum.index.array[j]=sum;}
#define SWAP(a,b) {swap=(a);(a)=(b);(b)=swap;}

#define CHISQ 3.84146
#define TINY 1.0e-10	//A small number.
#define NMAX 5000	//Maximum allowed number of function evaluations.
#define NO_X 501
#define MAX_CHANGE 10

#define NUM_PARAM 2	//number of parameters read into GP.

typedef struct VPARAM {
	double Value, Min, Max, Scale;
	int Scan;
} vparam;

typedef struct PARAMLIST {
	vparam kappa, eta;
} paramlist;

typedef struct PARAM {
	union	{	paramlist named;
				vparam array[NUM_PARAM];
			} index ;
} param;

typedef struct WORKLIST {
	int r;
	double p;
} worklist;

typedef struct WORKPARAM {
	union	{	worklist named;
				double array[NUM_PARAM];
			} index ;
} workparam;