From ef800d4ffafdbde7d7a172ad73bd984b1695c138 Mon Sep 17 00:00:00 2001
From: Pasha <pasha@member.fsf.org>
Date: Fri, 27 Jan 2023 00:54:07 +0000
Subject: simplex-glpk with modified glpk for fpga

---
 glpk-5.0/src/misc/qmd.c | 99 +++++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 99 insertions(+)
 create mode 100644 glpk-5.0/src/misc/qmd.c

(limited to 'glpk-5.0/src/misc/qmd.c')

diff --git a/glpk-5.0/src/misc/qmd.c b/glpk-5.0/src/misc/qmd.c
new file mode 100644
index 0000000..e5cbd5c
--- /dev/null
+++ b/glpk-5.0/src/misc/qmd.c
@@ -0,0 +1,99 @@
+/* qmd.c */
+
+#include "env.h"
+#include "qmd.h"
+
+void genqmd(int *neqns, int xadj[], int adjncy[], int perm[],
+      int invp[], int deg[], int marker[], int rchset[], int nbrhd[],
+      int qsize[], int qlink[], int *nofsub)
+{     static const char func[] = "genqmd";
+      xassert(neqns == neqns);
+      xassert(xadj == xadj);
+      xassert(adjncy == adjncy);
+      xassert(perm == perm);
+      xassert(invp == invp);
+      xassert(deg == deg);
+      xassert(marker == marker);
+      xassert(rchset == rchset);
+      xassert(nbrhd == nbrhd);
+      xassert(qsize == qsize);
+      xassert(qlink == qlink);
+      xassert(nofsub == nofsub);
+      xerror("%s: sorry, this routine is temporarily disabled due to li"
+         "censing problems\n", func);
+      abort();
+}
+
+void qmdrch(int *root, int xadj[], int adjncy[], int deg[],
+      int marker[], int *rchsze, int rchset[], int *nhdsze,
+      int nbrhd[])
+{     static const char func[] = "qmdrch";
+      xassert(root == root);
+      xassert(xadj == xadj);
+      xassert(adjncy == adjncy);
+      xassert(deg == deg);
+      xassert(marker == marker);
+      xassert(rchsze == rchsze);
+      xassert(rchset == rchset);
+      xassert(nhdsze == nhdsze);
+      xassert(nbrhd == nbrhd);
+      xerror("%s: sorry, this routine is temporarily disabled due to li"
+         "censing problems\n", func);
+      abort();
+}
+
+void qmdqt(int *root, int xadj[], int adjncy[], int marker[],
+      int *rchsze, int rchset[], int nbrhd[])
+{     static const char func[] = "qmdqt";
+      xassert(root == root);
+      xassert(xadj == xadj);
+      xassert(adjncy == adjncy);
+      xassert(marker == marker);
+      xassert(rchsze == rchsze);
+      xassert(rchset == rchset);
+      xassert(nbrhd == nbrhd);
+      xerror("%s: sorry, this routine is temporarily disabled due to li"
+         "censing problems\n", func);
+      abort();
+}
+
+void qmdupd(int xadj[], int adjncy[], int *nlist, int list[],
+      int deg[], int qsize[], int qlink[], int marker[], int rchset[],
+      int nbrhd[])
+{     static const char func[] = "qmdupd";
+      xassert(xadj == xadj);
+      xassert(adjncy == adjncy);
+      xassert(nlist == nlist);
+      xassert(list == list);
+      xassert(deg == deg);
+      xassert(qsize == qsize);
+      xassert(qlink == qlink);
+      xassert(marker == marker);
+      xassert(rchset == rchset);
+      xassert(nbrhd == nbrhd);
+      xerror("%s: sorry, this routine is temporarily disabled due to li"
+         "censing problems\n", func);
+      abort();
+}
+
+void qmdmrg(int xadj[], int adjncy[], int deg[], int qsize[],
+      int qlink[], int marker[], int *deg0, int *nhdsze, int nbrhd[],
+      int rchset[], int ovrlp[])
+{     static const char func[] = "qmdmrg";
+      xassert(xadj == xadj);
+      xassert(adjncy == adjncy);
+      xassert(deg == deg);
+      xassert(qsize == qsize);
+      xassert(qlink == qlink);
+      xassert(marker == marker);
+      xassert(deg0 == deg0);
+      xassert(nhdsze == nhdsze);
+      xassert(nbrhd == nbrhd);
+      xassert(rchset == rchset);
+      xassert(ovrlp == ovrlp);
+      xerror("%s: sorry, this routine is temporarily disabled due to li"
+         "censing problems\n", func);
+      abort();
+}
+
+/* eof */
-- 
cgit v1.2.1