source: ThirdParty/Glpk/trunk/glpk.patch @ 1162

Last change on this file since 1162 was 1162, checked in by stefan, 12 years ago

again a patch of the patch for solaris

File size: 1.4 KB
RevLine 
[1162]1diff -Naur glpkdummy/src/glpapi08.c glpk/src/glpapi08.c
2--- glpkdummy/src/glpapi08.c    Fri Aug 22 08:25:51 2008
[1110]3+++ glpk/src/glpapi08.c Fri Aug 22 08:31:53 2008
[1105]4@@ -349,9 +349,15 @@
[788]5       switch (ret)
6       {  case 0:
7             if (tree->mip->mip_stat == GLP_FEAS)
8-            {  if (parm->msg_lev >= GLP_MSG_ALL)
9-                  xprintf("INTEGER OPTIMAL SOLUTION FOUND\n");
10-               tree->mip->mip_stat = GLP_OPT;
11+             { if (ios_relative_gap(tree) > 0) {
12+                               if (parm->msg_lev >= GLP_MSG_ALL)
13+                                       xprintf("INTEGER FEASIBLE SOLUTION FOUND, GAP SMALLER THAN TOLERANCE\n");
14+                               tree->mip->mip_stat = GLP_FEAS;
15+               } else {
16+                       if (parm->msg_lev >= GLP_MSG_ALL)
17+                               xprintf("INTEGER OPTIMAL SOLUTION FOUND\n");
18+                       tree->mip->mip_stat = GLP_OPT;
19+               }
20             }
21             else
22             {  if (parm->msg_lev >= GLP_MSG_ALL)
[1162]23diff -Naur glpkdummy/src/glpios03.c glpk/src/glpios03.c
24--- glpkdummy/src/glpios03.c    Wed Aug 13 04:00:00 2008
[1110]25+++ glpk/src/glpios03.c Fri Aug 22 08:32:10 2008
[1105]26@@ -1346,7 +1346,7 @@
[788]27          {  if (tree->parm->msg_lev >= GLP_MSG_DBG)
28                xprintf("Relative gap tolerance reached; search terminat"
29                   "ed\n");
30-            ret = GLP_ETMLIM;
31+            ret = 0;
32             goto done;
33          }
34 #endif
Note: See TracBrowser for help on using the repository browser.