| 353 |
|
$cmd = "$rfluxmtx$r -h -ff $sender $receivers -i $octree"; |
| 354 |
|
} |
| 355 |
|
} |
| 356 |
< |
run_check $cmd; |
| 356 |
> |
if ( $dop ) { |
| 357 |
> |
# print STDERR "Running: $cmd\n"; |
| 358 |
> |
system $cmd; |
| 359 |
> |
die "Failure running rfluxmtx" if ( $? ); |
| 360 |
> |
} |
| 361 |
|
ttree_out($forw); |
| 362 |
|
} # end of do_ttree_dir() |
| 363 |
|
|
| 486 |
|
my $dop = do_phase(); |
| 487 |
|
my $r = ($dop < 0) ? " -r" : ""; |
| 488 |
|
my $sender = ($bsender,$fsender)[$forw]; |
| 489 |
< |
run_check "$rfluxmtx$r -fd $sender $receivers -i $octree"; |
| 489 |
> |
my $cmd = "$rfluxmtx$r -fd $sender $receivers -i $octree"; |
| 490 |
> |
if ( $dop ) { |
| 491 |
> |
# print STDERR "Running: $cmd\n"; |
| 492 |
> |
system $cmd; |
| 493 |
> |
die "Failure running rfluxmtx" if ( $? ); |
| 494 |
> |
} |
| 495 |
|
matrix_out($forw); |
| 496 |
|
} # end of do_matrix_dir() |
| 497 |
|
|
