| # | Line 132 | Line 132 | my $cmd = "cnt $ndiv $ny $nx | rcalc -of -e '$tcal' " | |
|---|---|---|
| 132 | "| rtcontrib -h -ff -n $nproc -c $nsamp -e '$kcal' -b kbin -bn $ndiv " . | |
| 133 | "-m $modnm -w -ab 5 -ad 700 -lw 3e-6 $octree " . | |
| 134 | "| rcalc -e '$tcal' " . | |
| 135 | < | "-e 'mod(n,d):n-floor(n/d)*d' -e 'Kbin=mod(recno-1,$ndiv)' " . |
| 135 | > | "-e 'mod(n,d):n-floor(n/d)*d' -e 'Kbin=mod(recno-.999,$ndiv)' " . |
| 136 | q{-if3 -e '$1=(0.265*$1+0.670*$2+0.065*$3)/KprojOmega'}; | |
| 137 | my @darr = `$cmd`; | |
| 138 | die "Failure running: $cmd\n" if ( $? ); | |
| – | Removed lines |
| + | Added lines |
| < | Changed lines |
| > | Changed lines |