dlabad function

void dlabad(
  1. Box<double> SMALL,
  2. Box<double> LARGE
)

Implementation

void dlabad(Box<double> SMALL, Box<double> LARGE) {
  // If it looks like we're on a Cray, take the square root of
  // SMALL and LARGE to avoid overflow and underflow problems.

  if (log10(LARGE.value) > 2000.0) {
    SMALL.value = sqrt(SMALL.value);
    LARGE.value = sqrt(LARGE.value);
  }
}