
  CONST
    clc$max_real_number_size = clc$max_real_number_digits +
          clc$max_real_exponent_digits + 4;

*copyc clc$max_real_exponent_digits
*copyc clc$max_real_number_digits
