if ($flow->{Suppress}) {
foreach my $sf (@{ $flow->{Subflows} }) {
$cplex .= "
- $sf->{Var} = 0";
+ $sf->{Var} = 0\n";
}
next;
}
\s* \d+ \s+
(\w+) \s+ (?: [A-Z*]+ \s+ )?
([0-9.]+) \s
- /x or die "$_ ?";
+ /x or die "$cplex \n==\n $glpsol_out $_ ?";
if ($varname =~ m/^f(\d+)s(\d+)_/) {
my ($ix,$orgix) = ($1,$2);
my $flow= $flows[$ix] or die;