197 |
|
print "\t\t<IncidentDataStructure>TensorTree$tensortree</IncidentDataStructure>\n"; |
198 |
|
print "\t</DataDefinition>\n"; |
199 |
|
|
200 |
< |
# Start rtcontrib processes for compute each side |
200 |
> |
# Start rcontrib processes for compute each side |
201 |
|
do_tree_rtcontrib(0) if ( $doback ); |
202 |
|
do_tree_rtcontrib(1) if ( $doforw ); |
203 |
|
|
204 |
|
} # end of sub do_tree_bsdf() |
205 |
|
|
206 |
< |
# Run rtcontrib process in background to generate tensor tree samples |
206 |
> |
# Run rcontrib process in background to generate tensor tree samples |
207 |
|
sub do_tree_rtcontrib { |
208 |
|
my $forw = shift; |
209 |
|
my $matargs = "-m $bmodnm"; |
245 |
|
"| $cmd"; |
246 |
|
} |
247 |
|
# print STDERR "Starting: $cmd\n"; |
248 |
< |
system "$cmd" || die "Failure running rtcontrib"; |
248 |
> |
system "$cmd" || die "Failure running rcontrib"; |
249 |
|
ttree_out($forw); |
250 |
|
} # end of do_tree_rtcontrib() |
251 |
|
|
379 |
|
kbin = kbin2(Acos(abs(Dz)),Atan2(Dy,Dx)); |
380 |
|
'; |
381 |
|
my $ndiv = 145; |
382 |
< |
# Compute scattering data using rtcontrib |
382 |
> |
# Compute scattering data using rcontrib |
383 |
|
my @tfarr; |
384 |
|
my @rfarr; |
385 |
|
my @tbarr; |