 TYPE
    fdt$valid_real_index = 1 .. fdc$maximum_valid_ranges;

*copyc fdc$maximum_valid_ranges
