-- This package provides the definition of the type Real and Long_Real.
-- For computers with only one floating point hardware both subtypes
-- become the same.
-- This technique provides for a balance of efficiency and accuracy
-- of the mathematical routines in this library.
-- A complete set of compiled packages is available to users.
-- A complete set of generic packages is also available to users.
-- On some systems this package may contain pragmas or other machine
-- dependencies

package Define_Real is
  subtype Real is Float ;
  subtype Long_Real is Long_Float ;
end Define_Real ;