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