# | 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 |
> | Changed lines |