Tweaked the "standard_route" script to make a second stage2

attempt if fewer than 5 routes remain.  There is no sense in
abandoning the routing if it is so close to completion.

1 files changed, 4 insertions, 1 deletions

diff --git a/qrouter.tcl.in b/qrouter.tcl.in
index 26f1960..12ad6cd 100644
--- a/qrouter.tcl.in
+++ b/qrouter.tcl.in
@@ -89,13 +89,16 @@ proc qrouter::write_congested {filename} {
 # Upon first success, write the DEF file output and quit.
 # If "stage2 mask none" leaves failing routes, then write
 # the routes done so far to the DEF file output and remain
-# in the interpreter.
+# in the interpreter.  If "stage2 mask none" leaves fewer
+# than five routes (a very ad hoc number), give it a
+# second try.
 #---------------------------------------------------------
 
 proc qrouter::standard_route {} {
    if {![stage1]} {write_def; quit}
    if {![stage2]} {write_def; quit}
    set result [stage2 mask none]
+   if {$result < 5} {set result [stage2 mask none]}
    write_def
    if {$result == 0} {quit}
 }