diff options
author | David Monniaux <david.monniaux@univ-grenoble-alpes.fr> | 2019-06-06 20:09:32 +0200 |
---|---|---|
committer | David Monniaux <david.monniaux@univ-grenoble-alpes.fr> | 2019-06-06 20:09:32 +0200 |
commit | feb8ebaeb76fa1c94de2dd7c4e5a0999b313f8c6 (patch) | |
tree | 273140847406f67c338677fcd1a8a1bed79579ce /test/monniaux/glpk-4.65/src/amd/amd_defaults.c | |
parent | f3a13e7cb3d2f0758eb418050d48a240798f2f86 (diff) | |
download | compcert-kvx-feb8ebaeb76fa1c94de2dd7c4e5a0999b313f8c6.tar.gz compcert-kvx-feb8ebaeb76fa1c94de2dd7c4e5a0999b313f8c6.zip |
GLPK 4.65
Diffstat (limited to 'test/monniaux/glpk-4.65/src/amd/amd_defaults.c')
-rw-r--r-- | test/monniaux/glpk-4.65/src/amd/amd_defaults.c | 38 |
1 files changed, 38 insertions, 0 deletions
diff --git a/test/monniaux/glpk-4.65/src/amd/amd_defaults.c b/test/monniaux/glpk-4.65/src/amd/amd_defaults.c new file mode 100644 index 00000000..820e8942 --- /dev/null +++ b/test/monniaux/glpk-4.65/src/amd/amd_defaults.c @@ -0,0 +1,38 @@ +/* ========================================================================= */ +/* === AMD_defaults ======================================================== */ +/* ========================================================================= */ + +/* ------------------------------------------------------------------------- */ +/* AMD, Copyright (c) Timothy A. Davis, */ +/* Patrick R. Amestoy, and Iain S. Duff. See ../README.txt for License. */ +/* email: davis at cise.ufl.edu CISE Department, Univ. of Florida. */ +/* web: http://www.cise.ufl.edu/research/sparse/amd */ +/* ------------------------------------------------------------------------- */ + +/* User-callable. Sets default control parameters for AMD. See amd.h + * for details. + */ + +#include "amd_internal.h" + +/* ========================================================================= */ +/* === AMD defaults ======================================================== */ +/* ========================================================================= */ + +GLOBAL void AMD_defaults +( + double Control [ ] +) +{ + Int i ; + + if (Control != (double *) NULL) + { + for (i = 0 ; i < AMD_CONTROL ; i++) + { + Control [i] = 0 ; + } + Control [AMD_DENSE] = AMD_DEFAULT_DENSE ; + Control [AMD_AGGRESSIVE] = AMD_DEFAULT_AGGRESSIVE ; + } +} |