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

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