+ int r = glp_simplex(prob, NULL);
+ PRINTF(" glp=%d", r);
+
+#define OKERR(e) \
+ case e: PRINTF(" " #e ); goto out;
+#define BADERR(e) \
+ case e: HAVE_PRINTED; printf(" " #e " CRASHING\n"); exit(-1);
+#define DEFAULT \
+ default: HAVE_PRINTED; printf(" ! CRASHING\n"); exit(-1);
+
+ switch (r) {
+ OKERR(GLP_ESING);
+ OKERR(GLP_ECOND);
+ OKERR(GLP_EBOUND);
+ OKERR(GLP_EFAIL);
+ OKERR(GLP_ENOPFS);
+ OKERR(GLP_ENODFS);
+ BADERR(GLP_EBADB);
+ BADERR(GLP_EOBJLL);
+ BADERR(GLP_EOBJUL);
+ BADERR(GLP_EITLIM);
+ BADERR(GLP_ETMLIM);
+ BADERR(GLP_EINSTAB);
+ BADERR(GLP_ENOCVG);
+ case 0: break;
+ DEFAULT;
+ }
+
+ r = glp_get_status(prob);
+ PRINTF(" status=%d", r);
+
+ switch (r) {
+ OKERR(GLP_NOFEAS);
+ OKERR(GLP_UNDEF);
+ BADERR(GLP_FEAS);
+ BADERR(GLP_INFEAS);
+ BADERR(GLP_UNBND);
+ case GLP_OPT: break;
+ DEFAULT;
+ }
+
+ double got = glp_get_obj_val(prob);
+ PRINTF(" %g", got);
+ if (got <= best)
+ goto out;
+
+ HAVE_PRINTED;
+
+ best = got;
+
+ if (best_prob) glp_delete_prob(best_prob);
+ best_prob = prob;
+
+ free(best_adjmatrix);
+ best_adjmatrix = xalloc_adjmatrix();
+ memcpy(best_adjmatrix, adjmatrix, sizeof(*adjmatrix)*n);
+
+ printf(" BEST \n");
+ return;
+
+ }
+ out:
+ if (prob)
+ glp_delete_prob(prob);
+ if (doprint) { printf(" \r"); fflush(stdout); }