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