 TYPE
    fdt$float_output_format = record
      digits_right_decimal: fdt$digits_right_decimal, {d FORTRAN
      {descriptor }
      field_width: fdt$real_field_width, { w FORTRAN descriptor }
      sign_treatment: fdt$sign_treatment,
      suppress_zero: boolean, {TRUE to display zero as blanks. }
    recend;

*copyc fdt$digits_right_decimal
*copyc fdt$real_field_width
*copyc fdt$sign_treatment
