diff options
author | Pasha <pasha@member.fsf.org> | 2023-01-27 00:54:07 +0000 |
---|---|---|
committer | Pasha <pasha@member.fsf.org> | 2023-01-27 00:54:07 +0000 |
commit | ef800d4ffafdbde7d7a172ad73bd984b1695c138 (patch) | |
tree | 920cc189130f1e98f252283fce94851443641a6d /glpk-5.0/src/misc/qmd.c | |
parent | ec4ae3c2b5cb0e83fb667f14f832ea94f68ef075 (diff) | |
download | oneapi-ef800d4ffafdbde7d7a172ad73bd984b1695c138.tar.gz oneapi-ef800d4ffafdbde7d7a172ad73bd984b1695c138.tar.bz2 |
Diffstat (limited to 'glpk-5.0/src/misc/qmd.c')
-rw-r--r-- | glpk-5.0/src/misc/qmd.c | 99 |
1 files changed, 99 insertions, 0 deletions
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 */ |