- for (row=1; row<=rows; row++) {
- glp_load_matrix(prob, next_matrix_entry,
- matrix_entries_XY[1], matrix_entries_XY[0],
- matrix_entries);
+ glp_load_matrix(prob, matrix_entries_size-1,
+ matrix_entries_XY[1], matrix_entries_XY[0],
+ matrix_entries);
+
+ 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;
+ }