INTERFACE R4Rep;
(*
  Definition and basic properties of the type "R4.T" *)

IMPORT RealExtraExtras, RandomReal, GaussRandom;

CONST N = 4;
TYPE T = ARRAY [0..N-1] OF REAL;
TYPE ElemT = REAL;

CONST DefaultElemFmt = RealExtraExtras.ToText;
CONST URandomCoord = RandomReal.Real;
CONST NRandomCoord = GaussRandom.Real;

END R4Rep.