Group: comp.lang.fortran · Group Profile · Search for Recalc in comp.lang.fortran
Author: Wade Ward
Date: Nov 17, 2007 19:10
... 2.0; $upper= $avg + $no11/2; $lower = $avg - $no11/2; $diff= $upper - $avg; ######## maine if ($diff < $comp) { $avg = ($upper + $lower) / 2.0; ##$$ Need to recalc upper and ##$$ lower $upper= $avg + $no11/2; $lower = $avg - $no11/2; $diff= $upper - $avg; } } # At this point, upper is guaranteed to be greater/= than lower ##### ### main control while ...
|