LPP *lpp_create_wksp(void)
{ LPP *lpp;
lpp = xmalloc(sizeof(LPP));
lpp->orig_m = 0;
lpp->orig_n = 0;
lpp->orig_nnz = 0;
lpp->orig_dir = LPX_MIN;
lpp->nrows = 0;
lpp->ncols = 0;
lpp->row_pool = dmp_create_poolx(sizeof(LPPROW));
lpp->col_pool = dmp_create_poolx(sizeof(LPPCOL));
lpp->aij_pool = dmp_create_poolx(sizeof(LPPAIJ));
lpp->row_ptr = NULL;
lpp->col_ptr = NULL;
lpp->row_que = NULL;
lpp->col_que = NULL;
lpp->c0 = 0.0;
lpp->tqe_pool = dmp_create_poolx(0);
lpp->tqe_list = NULL;
lpp->m = 0;
lpp->n = 0;
lpp->nnz = 0;
lpp->row_ref = NULL;
lpp->col_ref = NULL;
lpp->row_stat = NULL;
lpp->row_prim = NULL;
lpp->row_dual = NULL;
lpp->col_stat = NULL;
lpp->col_prim = NULL;
lpp->col_dual = NULL;
return lpp;
}
LUX *lux_create(int n)
{ LUX *lux;
int k;
if (n < 1)
xfault("lux_create: n = %d; invalid parameter\n", n);
lux = xmalloc(sizeof(LUX));
lux->n = n;
lux->pool = dmp_create_poolx(sizeof(LUXELM));
lux->F_row = xcalloc(1+n, sizeof(LUXELM *));
lux->F_col = xcalloc(1+n, sizeof(LUXELM *));
lux->V_piv = xcalloc(1+n, sizeof(mpq_t));
lux->V_row = xcalloc(1+n, sizeof(LUXELM *));
lux->V_col = xcalloc(1+n, sizeof(LUXELM *));
lux->P_row = xcalloc(1+n, sizeof(int));
lux->P_col = xcalloc(1+n, sizeof(int));
lux->Q_row = xcalloc(1+n, sizeof(int));
lux->Q_col = xcalloc(1+n, sizeof(int));
for (k = 1; k <= n; k++)
{ lux->F_row[k] = lux->F_col[k] = NULL;
mpq_init(lux->V_piv[k]);
mpq_set_si(lux->V_piv[k], 1, 1);
lux->V_row[k] = lux->V_col[k] = NULL;
lux->P_row[k] = lux->P_col[k] = k;
lux->Q_row[k] = lux->Q_col[k] = k;
}
lux->rank = n;
return lux;
}
IPP *ipp_create_wksp(void)
{ IPP *ipp;
ipp = xmalloc(sizeof(IPP));
ipp->orig_m = 0;
ipp->orig_n = 0;
ipp->orig_nnz = 0;
ipp->orig_dir = LPX_MIN;
ipp->ncols = 0;
ipp->row_pool = dmp_create_poolx(sizeof(IPPROW));
ipp->col_pool = dmp_create_poolx(sizeof(IPPCOL));
ipp->aij_pool = dmp_create_poolx(sizeof(IPPAIJ));
ipp->row_ptr = NULL;
ipp->col_ptr = NULL;
ipp->row_que = NULL;
ipp->col_que = NULL;
ipp->c0 = 0.0;
ipp->tqe_pool = dmp_create_poolx(0);
ipp->tqe_list = NULL;
ipp->col_stat = NULL;
ipp->col_mipx = NULL;
return ipp;
}
MPL *mpl_initialize(void)
{ MPL *mpl;
mpl = xmalloc(sizeof(MPL));
/* scanning segment */
mpl->line = 0;
mpl->c = 0;
mpl->token = 0;
mpl->imlen = 0;
mpl->image = xcalloc(MAX_LENGTH+1, sizeof(char));
mpl->image[0] = '\0';
mpl->value = 0.0;
mpl->b_token = 0;
mpl->b_imlen = 0;
mpl->b_image = xcalloc(MAX_LENGTH+1, sizeof(char));
mpl->b_image[0] = '\0';
mpl->b_value = 0.0;
mpl->f_dots = 0;
mpl->f_scan = 0;
mpl->f_token = 0;
mpl->f_imlen = 0;
mpl->f_image = xcalloc(MAX_LENGTH+1, sizeof(char));
mpl->f_image[0] = '\0';
mpl->f_value = 0.0;
mpl->context = xcalloc(CONTEXT_SIZE, sizeof(char));
memset(mpl->context, ' ', CONTEXT_SIZE);
mpl->c_ptr = 0;
mpl->flag_d = 0;
/* translating segment */
mpl->pool = dmp_create_poolx(0);
mpl->tree = avl_create_tree(avl_strcmp, NULL);
mpl->model = NULL;
mpl->flag_x = 0;
mpl->as_within = 0;
mpl->as_in = 0;
mpl->as_binary = 0;
mpl->flag_s = 0;
/* common segment */
mpl->strings = dmp_create_poolx(sizeof(STRING));
mpl->symbols = dmp_create_poolx(sizeof(SYMBOL));
mpl->tuples = dmp_create_poolx(sizeof(TUPLE));
mpl->arrays = dmp_create_poolx(sizeof(ARRAY));
mpl->members = dmp_create_poolx(sizeof(MEMBER));
mpl->elemvars = dmp_create_poolx(sizeof(ELEMVAR));
mpl->formulae = dmp_create_poolx(sizeof(FORMULA));
mpl->elemcons = dmp_create_poolx(sizeof(ELEMCON));
mpl->a_list = NULL;
mpl->sym_buf = xcalloc(255+1, sizeof(char));
mpl->sym_buf[0] = '\0';
mpl->tup_buf = xcalloc(255+1, sizeof(char));
mpl->tup_buf[0] = '\0';
/* generating/postsolving segment */
mpl->rand = rng_create_rand();
mpl->flag_p = 0;
mpl->stmt = NULL;
#if 1 /* 11/II-2008 */
mpl->dca = NULL;
#endif
mpl->m = 0;
mpl->n = 0;
mpl->row = NULL;
mpl->col = NULL;
/* input/output segment */
mpl->in_fp = NULL;
mpl->in_file = NULL;
mpl->out_fp = NULL;
mpl->out_file = NULL;
mpl->prt_fp = NULL;
mpl->prt_file = NULL;
/* solver interface segment */
if (setjmp(mpl->jump)) xassert(mpl != mpl);
mpl->phase = 0;
mpl->mod_file = NULL;
mpl->mpl_buf = xcalloc(255+1, sizeof(char));
mpl->mpl_buf[0] = '\0';
return mpl;
}
