double ****work1;
double ***work2;
double ***work3;
double ****work4;
double ****work5;
double ***work6;
double ****work7;
double ***tauz;

double ****psi;
double ****psim;
double ***psium;
double ***psilm;
double ***psib;
double ***ga;
double ***gb;
double ***oldga;
double ***oldgb;

double ****q_multi;
double ****rhs_multi;

long *imx;
long *jmx;

double *f;
struct Global_Private *gp;


double *lev_res;
double *lev_tol;
double *i_int_coeff;
double *j_int_coeff;
long *xpts_per_proc;
long *ypts_per_proc;
long xprocs;
long yprocs;
long numlev;
double eig2;
long im;
long jm;