
  TYPE
    clt$real_number_digit_count = 1 .. clc$max_real_number_digits;

*copyc clc$max_real_number_digits
