1 typedef struct {
2   int n;
3   double *dpr;
4 } vari;
5 
6 typedef struct {
7   double *Z, *Q, *dg, *f2;
8   int p, sm; } xtwxstruc;
9 
10 typedef struct {
11   vari *wk;
12   double *coef, *xbar, *f;
13   xtwxstruc xtwx; } paramcomp;
14 
15 typedef struct {
16   vari *dw, *index;
17   double *xev, *X, *w, *di, *res, *th, *wd, h, xb[15];
18   double *V, *P, *f1, *ss, *oc, *cf, llk;
19   xtwxstruc xtwx;
20   int *ind, n, p, pref, (*itype)();
21   int (*vfun)(); } design;
22 
23 typedef struct {
24   vari *tw, *L, *iw, *xxev;
25   double *x[15], *y, *w, *base, *c, *xl;
26   double *coef, *nlx, *t0, *lik, *h, *deg;
27   double *sv, *fl, *sca, *dp, kap[3];
28   int *ce, *s, *lo, *hi, sty[15];
29   int *mg, nvm, ncm, vc;
30   int nl, nv, nnl, nce, nk, nn, *mi, ord, deriv[9], nd;
31   paramcomp pc;
32   varname yname, xname[15], wname, bname, cname; } lfit;
33 
34 extern void mlbcall(
35              double *x, double *y,
36              double *xx, double *ff, int n);
37