| # | Line 133 | Line 133 | if ( $geout ) { | |
|---|---|---|
| 133 | print "\t</Geometry>\n"; | |
| 134 | } | |
| 135 | # Set up surface sampling | |
| 136 | < | my $nx = int(sqrt($nsamp*($dim[1]-$dim[0])/($dim[3]-$dim[2])) + .5); |
| 137 | < | my $ny = int($nsamp/$nx + .5); |
| 136 | > | my $nx = int(sqrt($nsamp*($dim[1]-$dim[0])/($dim[3]-$dim[2])) + 1); |
| 137 | > | my $ny = int($nsamp/$nx + 1); |
| 138 | $nsamp = $nx * $ny; | |
| 139 | my $ns = 2**$ttlog2; | |
| 140 | my (@pdiv, $disk2sq, $sq2disk, $tcal, $kcal); | |
| – | Removed lines |
| + | Added lines |
| < | Changed lines (old) |
| > | Changed lines (new) |