extern int hoc_model(), hoc_initmodel(), hoc_terminal(), hoc_prconst(); extern int *hoc_pindepindex; static IntFunc function[] = { "model", hoc_model, "initmodel", hoc_initmodel, "terminal", hoc_terminal, 0,0 }; static struct { /* Integer Scalars */ char *name; int *pint; } scint[] = { 0, 0 }; static struct { /* Vector integers */ char *name; int *pint; int index1; } vint[] = { 0,0,0 }; static DoubScal scdoub[] = { 0,0 }; static DoubVec vdoub[] = { 0,0,0 }; static struct { /* Arrays */ char *name; double *pdoub; int index1; int index2; } ardoub[] = { 0, 0, 0, 0 }; static struct { /* triple dimensioned arrays */ char *name; double *pdoub; int index1; int index2; int index3; } thredim[] = { 0, 0, 0, 0, 0 };