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 |
|
|